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IDENTIFICATION 


PRODUCT CODE: AC=-F172A-MC 

PRODUCT NAME: CRIIAAO .IST STND=ALN SP 

DATE CREATED: 15 NOVEMBER 1978 

MAINTAINER: C.S.S. LOW VOLUME PRODUCTS GROUP 
AUTHOR : ROBERT J. COLLINS / W. WEISKE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A_COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS 
FURNISHED TO THE PURCHASER UNDER A LICENSE FOR USE 
ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) 
ONLY “FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
ah te ON EQUIPMENT THAT IS NOT SUPPLIED BY . 


COPYRIGHT (@) 1978 BY DIGITAL EQUIPMENT CORPORATION 
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1.0 ABSTRACT 


THE DIP11=A STAND-ALONE DIAGNOSTIC 

THE LOGIC OF A DIP11-A oe ont (J 

AND REPORT ANY MALFUNCTIONS ON THE CONSOLE. } RMINAL . 

MOST OF THE TESTING IS PERFORMED IN WRAPAROUND MAINTENENCE 
MODE, BUT SOME TESTS CAN BE EXECUTED IN NORMAL MODE. 

THE INTERFACE UNDER on MAY BE CONNECTED TO THE IIST 
INTERCONNECTING BUS AS LONG AS OTHER INTERFACES ARE NOT 
oe INFORMA 1 ON ADDRESSED TO THE INTERFACE UNDER 


2.0 MINIMUM EQUIPMENT 


A. PDP=11 WITH 8K AND A CONSOLE TERMINAL 
B. DIP11-A (IIST) INTERFACE 


3.0 PRELIMINARY OPERATIONS 


IF THE INTERFACE IS CONNECTED TO THE IIST BUS, THE OPERATOR 
MAY WISH TO PREPARE THE OTHER INTERFACES FOR THE RUNNING OF THE 
DIAGNOSTIC ON THIS INTERFACE. SUCH PREPARATION MIGHT INCLUDE 
INITIALIZATION OF THE OTHER INTERFACES OR ACTIVATION OF THE 
VARIOUS EXTERNAL INHIBIT CONTROLS (IF AVAILABLE) IN ORDER TO 
PREVENT INTERFERENCE WITH THE ONLINE INTERFACES. 


4.0 LOADING PROCEDURE 
IF A PAPER TAPE IS SUPPLIED, LOAD WITH AN ABS LOADER, 


IF THE PROGRAM IS AVAILABLE ON XXDP MEDIUM, FOLLOW THE 
LOADING PROCEDURES FGR THE MEDIUM. 


5.0 CONSOLE SWITCH SETTINGS 


 §R15 (1) HALT ON ERROR 


SR14 (1) LOOP ON TEST 

SR13 (1) INHIBIT TYPEOUTS 

SR10 (1) BELL ON ERROR 

SROO (1) LOOP ON ERROR 

SROO (1) PRINT ALL IIST REGISTERS ON THE CONSOLE TERMINAL 
Sui TCH REGISTER LOCATION IN MEMORY CALLED “SuREG™ CLOCATTON. 176), 


THIS LOCATION CAN BE CHANGED MANUALLY OR BY TYPING THE “‘CNTRL & G"’ 
KEYS AND RESPONDING TO THE RESULTING TERMINAL DIAL GUE. 
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6.0 STARTING PROCEDURE 


LOADING ADDRESS 200(8) AND STARTING WILL IDENTIFY THE 

PROGRAM, INITIALIZE THE SYSTEM, AND BEGIN TESTING USING 

THE ADDRESS AND CONFIGURATION PARAMETERS ALREADY STORED 

y die THE PROGRAM Sas . THE DEFAULT PARAMETERS SUPPLIED 
UPON INITIAL LOAD, OR THE PARAMETERS SUPPLIED VIA THE CONSOLE 

ON A PREVIOUS START FROM LOCATION 204). 


LOADING ADDRESS 204(8) AND STARTING WILL INITIATE A 

CONSOLE DIALOG IN WHICH THE OPERATOR MAY SUPPLY NEW OPERATING 
PARAMETERS (DEVICE ADDRESS, INTERRUPT VECTOR AND LEVEL, AND 
HARDWARE CONFIGURATION). 


7.0 OPERATION 


ONCE STARTED, THE PROGRAM RUNS CONTINUOUSLY AND PERIODICALLY 
PRINTS END OF PASS MESSAGES. THE HARDWARE SWITCH SELF ID 
CODE _IS REPORTED ON PASS 1, AS IS THE SELECTED SANITY-TIMER 
COUNT RATE. THE OPERATOR SHOULD VERIFY THAT THESE 

ARE THE EXPECTED PARAMETERS. 


8.0 ERRORS 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE AND RELEVANT TEST DATA e TAB- 
ULAR FORM. FURTHER QUALIFICATION OF THE ERROR CAN BE OBTAINED, 

IF NEEDED, FROM THE COMMENT AT THE ERROR PC OR FROM THE TEST ITSELF. 


9.0 LISTING 


-LIST LOC,BIN,SEQ 
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aE 
3S 


& 


-ENABLE ABS,AMA 
-TITLE MAINDEC=11-CRIIA 
:*COPYRIGHT (C) 1977 
s SRAYNARD EQUIPMENT CORP. 
ie YNARD, MASS. 01754 


! *PROGRAM BY ROBERT J. COLLINS 


THIS PROGRAM WAS ASSEMBLED USING THE eek MAINDEC SYSMAC 
s “PACKAGE (MAINDEC=11-DZQAC-C1),MAR 24, 1976. 


* SBTTL OPERATIONAL SWITCH SETTINGS 
-* 


LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 


SWITCH 
}? HALT ON ERROR 
13 
11 INHIBIT ITERATIONS 
10 ON ERROR 


tad 9 
-SBTTL BASIC DEFINITIONS 


i te OF THE STACK POINTER *** 1100 *** 
-EQUIV EMT,ERROR :sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE : BASIC DEFINITION OF SCOPE CALL 


ian Sales DEF INITIONS 
000011 11 #: CODE FOR yey TAB 
000012 :;CODE FOR LINE FEED 
000015 ;:CODE FOR CARRIAGE RETURN 
000200 00 ;:CODE FOR CARRIAGE RETURN-LINE FEED 
177776 : PROCESSOR STATUS WORD 


177774 4h eS LIMIT REGISTER 
ROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
177570 ; sHARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEF IN! TIONS 
RO= %0 NERAL 


REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
;:GENERAL REGISTER 
3:STACK POINTER 
;sPROGRAM COUNTER 


poraionity LEVEL DEFINITIONS 

PRO= 0 ;zPRIORITY LEVEL O 
PR1= 40 :zPRIORITY LEVEL 1 
PR2= 100 szPRIORITY LEVEL 2 
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PR3= szPRIORITY LEVEL 3 
s PRIORITY LEVEL 4 

7 PRIORITY LEVEL 2 

7 


5 


;sPRIORITY LEVEL 
PR7= ;sPRIORITY LEVEL 


3*° "SWITCH REGISTER’ SWITCH DEFINITIONS 
Sw15= 100000 
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-EQUIV BIT04,BI1T4 
B1T03,B1T3 
BIT02,BITe 
BIT01,BI1T1 

-EQUIV BITOO.BITO 


;*BASIC ‘'CPU'’ TRAP VECTOR i oF 
VEC= ME OUT AND OTHER ERRORS 
fri AND ILLEGAL INSTRUCTIONS 


TRACE TRAP 

: BREAKPOINT TRAP (BPT) 

3 aan PALL TRAP (IOT) **SCOPE** 
; «POWER F AIL 
EMULATOR TRAP (EMT) **ERROR** 
7'"TRAP’' TRAP 


;TTY KEYBOARD VECTOR 
[TTY PRINTER VECTOR 
PIROVEC=240 [PROGRAM INTERRUPT REQUEST VECTOR 
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eS 


-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3*KT11 VECTOR ADDRESS 

MMVEC= 250 

3*KT11 STATUS REGISTER ADDRESSES 


SRO= 177572 
SR1= 
SRe= 
SR3= 


KIPDRO= 
KIPDR1= 
KIPDR2= 
KIPDR3= 
KiPDR4= 
KIPDRS= 
KIPDR6= 
KIPDR/= 


a ad ae el wl cl ad el 
NNNNNNN ON 


-SBTTL TRAP CATCHER 


=0 

7 *ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN 
7*A_“",+2, IOT’* SEQUENCE TO CATCH AND oe ILLEGAL ~ 
*TRAPS AND INTERRUPTS THAT MIGHT OCCUR 
;*THE IOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT 
;*TRAPS TO THE $SCOPE ROUTINE WHICH (IF THE RETURN PC IS 
>*LESS THAN 1002) JUMPS TO THE SERROR ROUTINE. 
: * THE $ERROR ROUTINE WILL REPORT THE — AS FOLLOWS: 

PC=VYYYYY UNEXPECTED TRAP TO XXX 
“SAND RETURN TO THE PROGRAM AT PC=YYYYYY+2 
; *WHERE XXX=LOCATION OF ILLEGAL TRAP 

YYYYYY=PC AT TIME OF TRAP 
} #NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 
: CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 


000000 000000 $40CAT: HALT ZZHALT 
000002 000737 BR -- "00 ety TO 177700 & TIME OU! ‘NOT ON 
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RAP CATCHER 


.WORD NOP. :: VECTOR TO STARTING ADDRESS 
-WORD tzWITH PRIORITY LEVEL 7 
DI SPREG: . WORD ::SOFTWARE DISPLAY REGISTER 


SWREG: .WORD 0 7 sSOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRES(ES) 
2502 JMP @ANOPAR ;;GO TO START OF PROGRAM 
002512 JMP SELPAR :GO TO SELECT PARAMETERS 


MACY11 30A(1052) 
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.SBTTL ACT11 HOOKS 


ST RARER RARER AER ERR REA EEE RARER RAERRERRERRERERRERRRERERRARHEE RE 


‘HOOKS REQUIRED BY ACT11 
$SVPC= ; SAVE PC 
::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 


222)SET LOC. a TO ZERO 
zs RESTORE P 


bacco ¢ 


-=1000 
-SBTTL APT PARAMETER BLOCK 


5 REAR REAREER ERA EERE RAERRRERRREREE EE 


>SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
TOIDIOISISIIO IOI IOIDIOIUIDIDIOISIUIDIOIIIDISIDIDISIOIUIOIIIOIUIOIUIOIUIOIUIIUIOIUIOIIUIOIIUID UD ttt 
73SAVE CURRENT LOCATION 
32SET POWER FAIL TO POINT TO START OF PROGRAM 
72FOR APT START UP 
:sPOINT TO APT INDIRECT ADDRESS PNITR. 
SAPTHDR 7zPOINT TO APT HEADER BLOCK 
. $X 3sRESET LOCATION COUNTER 


a /ceangenenanteeheneneensenennnsenesedetthebheensenessenneneeset 


SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
S INTERFACE SPEC. 


32TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

;z4DDRESS OF APT MAILBOX (BITS 0-15) 

72RUN TIM OF LONGEST TEST 

;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
TEND-$MAIL/2 :: LENGTH MAILBOX-E TABLE (WORDS) 
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-SBTTL COMMON TAGS 


& 


FARRER EEE ERE ER ERE EERE RRR 


SS THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


-=1100 
SCMTAG: :START OF COMMON TAGS 


:¢ CONTAINS THE a 4 NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ate ang } 3 hy 


ST 
PC OF LAST ERROR ee 
RESS OF ‘GOOD* DAT 


ADD 

ADDRESS OF ‘BAD’ DATA. 
"GOOD" DATA 

*BAD' DATA 


> ;RESERVED--NOT TO BE USED 


: sAUTOMATIC MODE INDICATOR 
3: INTERRUPT MODE INDICATOR 


SWR: ; ;zADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD ;zADDRESS OF DISPLAY REGISTER 
$TKS: iz TTY KBD STATUS 
act KBD BUFFER 
Zs TTY PRINTER STATUS REG. ADDRESS 
i TTY PRINTER BUFFER REG. ADDRESS 


SINTAG: . 


lelelelelelelelelelol lelelelelalelela) 


s 


ee ee ee ee ee ee ee ee en ee eee ee 
Nm 


TE 
33 NAL AVAILABLE’ FLAG (BIT<07>=0=YES) 
;: CONTAINS THE ADDRESS FROM 
($REGO) WAS OBTAINED 
=GAD) +0) 


7: CONTAINS (($REGAD) +12) 
yr DEF INED 
USER DEF INED 


; : sUSER DEF INED 
;;USER DEF INED 
SZUSER DEFINED 
MAX. NUMBER OF ITERATIONS 

TES CAPE ON ERROR ADDRESS 

. <297><377><377> 3;CODE FOR BELL 

ASCII 13) ; QUESTION MARK 


SSSSSSSSSSSSSSSS SSSSSSSSSSSSSSSSSSSS8SSSSS38SSss 
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f+ ps 


L 1 
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(1) 001225 015 $CRLF: .ASCII <15> pa RETURN 
(1) 001226 0000ic SLF : eASCIZ <12> NE FEED 
(2) ITITITITIT ITI TIT TITTTITI TTI ITITT TTL LT LL LLL ELL LLL LTTE ely 
(3) ‘SBTTL APT MAILBOX=E TABLE 
(3) SL RARER EEE REE REE REE 
o> Sail .EVEN 
(2) 001230 $MAIL: ;:APT MAILBOX 
(2) 001230 000000 SMSGTY: .WORD AMSGTY ert TYPE CODE 
(2) 001232 000000 $FATAL: .WORD AFATAL 23 FAT AL ERROR NUMBER 
(2) 001234 000000 $STESTN: .WORD ATESTN ;;TEST NUMBER 
(2) 001236 000000 $SPASS: .WORD APASS = ;;PASS COUNT 
(2) 001240 $DEVCT: .WORD ADEVCT DEVICE COUNT 
(2) 001242 000000 $UNIT: .WORD AUNIT  ;;1 
(2) O012 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
(2) 001246 000000 $MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
(2) 001250 SE TABLE: ; APT tad oe py oe TABLE 
(2) 001250 000 SENV BYTE AENV 7 ENVIRONMENT BYT 
(2) 001251 000 SENVM: .BYTE AENVM  ;;ENVIRONMENT MODE BITS 
(2) 001252 000000 $SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001254 000000 $USWR: .WORD AUSWR §;;USER SWITCHES 
44 001256 000000 $CPUOP: .WORD ACPUOP airs si Soy eve 
c ;* = 
(2) i* 11/04=01,11/05=02,11/20= =, 11/40=04,11/45=05 
(2) i* 11/70=06 . PDQ=07 ,0=10 
(2) i* BIT 10=REAL_ TIME CLOCK 
(2) 5 BIT 9=FLOATING POINT _— 
(2) el oe 8=MEMORY MANAGEMENT 
(2) 001260 000 $MAMS1: .BYTE AMAMS1 HIGH ADDRESS.M.S. BYTE 
(2) 001261 C00 $MTYP1: .BYTE AMTYP1 :MEM. TYPE ,BLKAI 
(2) i* em. TYPE BYTE == (HIGH BYTE) 
2) ° :@ 900 NSEC CORE=001 
(2) s* 300 NSEC BIPOLAR=002 
(2) -* 500 NSEC MOS=003 
(2) 001262 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA1 
(2) .* MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘'TYPE'' ABOVE 
(2) 001264 000 EMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001265 000 $MTYP2: .BYTE AMTYP2 ;;MEM. TYPE .BLKA2 
(2) 001266 000000 $MADR2: .WORD AMADR2 sre LAST ADDRESS ,BLK#2 
2) 001270 000 $MAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS,M.S.BYTE 

> 001271 000 $MTYP3: .BYTE AMTYP3 2 3MEM. TYPE, BLKA3 
(2?) 001272 000000 $MADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS ,BLK&#3 
(2) 001274 000 SMAMS4: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 

2) 001275 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE,BLKA4 
(2) 001276 000000 SMADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS ,BLKA4 
(2) 001300 000000 $VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
(2) 001302 000000 SVECT2: .WORD AVECT2 :: INTERRUPT VECTOR#2BUS PRIORI TY#2 
(2) 001304 000000 $BASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001306: 000000 $DEVM: .WORD ADiVM ;;DEVICE MAP 
(2) 001310 000000 . $CDW1: .WORD ACDW1 ;;CONTROLLER DESCRIPTION WORDA1 
(2) 001312 000000 $CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
(2) 001314 $DDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORD#O 
(2) 001316 ” $DDW1: .WORD ADDWI ;;DEVICE DESCRIPTOR wORD#1 
(2) 001320 000000 $DDW2 WORD ADDW2 ;;DEVICE DESCRIPTOR WORD#2 
(2) 001322 000000 SDDW3: .WORD AcoW3S ;;DEVICE DESCRIPTOR WORD#S 
(2) 001324 $DDW4: .WORD ADDwW4 :zDEVICE DESCRIPTOR WORD&4 
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2 sDEVICE DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

DESCRIPTOR 

t 4 V DESCRIPTOR 
$DDW1S: . ADDW15 ;;DEVICE DESCRIPTOR 


=m 


et ee a ee ee ee a ee ee ~_ 
ee Nee ee ee ee 


SETEND: — 
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-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
>*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE are ‘ PERTINENT. 
> *NOTE1: IF $ITEMB IS O THE ONLY PERTINENT DATA IS (SERRE 
;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;zPOINTS TO THE ERROR MESSAGE 
;zPOINTS TO THE DATA HEADER 

; POINTS TO THE DATA 

> POINTS TO THE DATA FORMAT 


SERRTB: 
; ERROR 


; ERROR 
;ACR BI13-0 LOAD-READER ERROR 
;PASS PC EXPCTD ACTUAL ACR 
7 SASS, SERRPC ,SGDDAT , SBDDAT ,DISPLY 


;AcR BIT3-0 WERE NOT CLEARED BY RESET (ACR CLR) 
;PASS PC ACR 
7 SPASS,SERRPC ,DISPLY 


Ge Sala eel de oreo oe 
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Wre-O 


:PGTE BIT11-8 LOAD-READ ERROR 
PASS PC EXPCTD ACUTAL PGTE 
; SPASS ,SERRPC ,SGDDAT , SBDDAT ,DISPLY 


:PGTE BIT'1-8 WERE NOT CLEARED BY RESET (ACR CLR) 
PASS PC PGTE 
; SPASS,,SERRPC ,DISPLY 


:PGTE BIT3-0 LOAD-READ ERROR 
:PASS PC EXPCTD ACUTAL PGTE 
; $PASS ,SERRPC ,SGDDAT , $8DDAT DI SPL ¥ 


sPGTE BIT3-0 WERE NOT CLEARED BY RESET (ACR CLR) 
sPASS PC PGTE 
:SPASS.SERRPC DISPLY 
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See 


:1E (PGTE BIT 6) CANNOT BE SET 
PASS PC PGTE 
; SPASS , SERRPC ,DISPLY 

033760 


; 10 
030147 IE (PGTE BITS6) CANNOT BE WRITTEN TO 0 
:PASS PC PGTE 
:$PASS ,SERRPC ,DISPLY 
033760 


NMoNnoNnoNneNNoNnonofry 
ad cad cal cc ct cel a cad nd 
CONAUSWIR-O 


030215 : ! s IE yee pet 5 ae CANNOT BE CLEARED BY RESET (ACR CLR) 


PASS P 
0 :$PASS, SERRPC, DISPLY 
033760 


; 12 
030301 rrr 's a CANNOT BE SET 
3 sPASS PC PGTE 
; $PASS ,SERRPC ,DISPLY 
033760 


; 3 
030337 , Spas Pe Pee CANNOT BE WRITTEN TO 0 
7 $PASS,$ERRPC ,DISPLY 


feass Pe PGT CANNOT BE CLEARED BY RESET (ACR CLR) 
;$PASS,$ERRPC ,DISPLY 


;STTE BIT11-8 LOAD-READ A i toy 
=PASS PC EXPCTD ACUTAL STTE 
7 $PASS,,SERRPC ,$GDDAT , S$BDDAT ,DISPLY 


:STTE BIT11-8 WERE NOT CLEARED BY RESET (ACR CLR) 
;PASS PC STTE 
: SPASS ,SERRPC ,DISPLY 


;STTE BIT3-0 LOAD-READ ERROR 
PASS PC_EXPCTD ACUTAL STTE 
;SPASS ,SERRPC ,$GDDAT ,$BDDAT ,DISPLY 
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; ERROR ‘ 
031077 E 3 4 Am Ra NOT CLEARED BY RESET (ACR<CLR) 
:SPASS, S$ERRPC ,DISPLY 


sLKE (STCS “5 Na CANNOT BE 
sPASS PC STC 
:$PASS, SERRPC, DISPLY 


sLKE (STCS BIT2) CANNOT WRITTEN TO 0 
[PASS PC STCS 
[$PASS,$ERRPC ,DISPLY 


bass be st ei re CANNOT CLEARED BY RESET (ACR CLR) 
> $SPASS , $ERRPC ,DISPLY 
033760 


: 2 
031351 STP (STCS BIT1) CANNOT 
SPASS PC STCS 
> SPASS ,SERRPC ,DISPLY 


- 


033760 


031407 STP (STCS BIT1) CANNOT WRITTEN TO 0 
SPASS PC STCS 
7 $PASS,SERRPC ,DISPLY 

033760 


° 26 
031456 pees be tee CANNOT CLEARED BY RESET (ACR CLR) 
7 $PASS,$ERRPC ,DISPLY 
033760 


; 27 
031543 ;ENB_(STCS BITO) CANNOT 
zPASS PC_STCS 
; SPASS , SERRPC ,DISPLY 


ENB (STCS BIT9) CANNOT WRITTEN TO O 
PASS PC STCS 
$PASS,$ERRPC ,DISPLY 





MAINDEC=11~CRIIA 
CRIIAA.P11 
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031650 


033760 


031735 


033760 


031772 


033760 


032053 


033760 


032110 


033760 


032171 


033760 


032225 


033760 


032305 


99 Oh —, 
0:58 


nhen taal 


; ERROR 


ERROR 


; ERROR 


;ERROR 


sERROR 


ERROR 


ZERROR 


ZERROR 


; ERROR 


OR POINTER TABLE 


D 
11:06 PAGE 9 


SBaSS be et e110) « CANNOT BE CLEARED BY RESET (ACR CLR) 
:SPASS , SERRPC ,DISPLY 


STCS B1T15-8 LOAD-READ sc" 
;PASS PC EXPCTD ACUTAL STCS 
$PASS,SERRPC ,SGDDAT , SBDDAT ,DISPLY 


ase ace ~8 WERE NOT CLEARED BY RESET (ACR CLR) 
:$SPASS, SERRPC, DISPLY 


;IMSK BIT11-8 etre ERROR 
:PASS PC EXPCTD ACUTAL IMSK 
7 SPASS ,SERRPC ,$GDDAT, SapDar, DISPLY 


ease leet WERE NOT CLEARED BY RESET (ACR CLR) 
:SPASS ,$ERRPC ,DISPLY 


; IMSK BIT3-0 LOAD-READ ERROR 
PASS PC_EXPCTD ACUTAL IMSK 
; SPASS ,SERRPC ,$GDDAT , SBDDAT ,DISPLY 


fae ee WERE NOT CLEARED BY RESET (ACR CLR) 
7 SPASS,,SERRPC ,DISPLY 


:MTCE BIT11-8 LOAD-READ ERROR 
;PASS PC_EXPCTD ACUTAL MTCE 
> $PASS ,SERRPC ,$GDDAT , $BDDAT ,DISPLY 


PASE 2 tin WERE NOT CLEARED BY RESET (ACR CLR) 
;$PASS ,SERRPC ,DISPLY 


SEQ 0016 


C=11=CRIJA 
-P11 3)=NOV-78 


001774 


002000 3 
002002 033760 


002004 032533 
002006 


002010 
002012 


red Al on 
10:58 


a: 
akin tenal 11:06 PAGE 10 


OR POINTER TABLE 


sERROR 42 
EM42 


sMTCE BIT3-0 LOAD-READ ERROR 
PASS PC_EXPCTD ACUTAL MTCE 
: SPASS ,SERRPC ,$GDDAT , SBDDAT ,DISPLY 


pase Pe te WERE NOT CLEARED BY RESET (ACR CLR) 
‘SPASS, SERRE, DISPLY 


:1IST ERROR = REFER TO THE LISTING AT ‘PC’ 

[TO DETERMINE THE ERROR. 

:PASS PC LINE # EXPCTD ACTUAL DISPLY $TMPO $TMP 

;SPASS,, SERRPC ,LINMBR, SGDDAT , SBDDAT ,DISPLY, stMPO, $TMP1 


-SBTTL REGISTER DEFINITIONS 


sACR BIT DEFINITIONS 


CLR=BIT15 MASTER CLEAR 


MTCE=15 
sPGTE BIT DEFINITION 


PB3=BIT11 ;PROGRAM BOOT TRANSMIT ENABLE 3 
= ;PROGRAM BOOT TRANSMIT ENABLE 2 
;PROGRAM BOOT TRANSMIT ENABLE 1 
;PROGRAM BOOT TRANSMIT ENABLE 0 

;PROGRAM INTERRUPT TRANSMIT ENABLE 3 

;PROGRAM INTERRUPT TRANSMIT ENABLE 2 

;PROGRAM INTERRUPT TRANSMIT ENABLE 1 

PI0=81 TO ;PROGRAM INTERRUPT TRANSMIT ENABLE 0 


z:PGCS BIT DEFINITIONS 
ERR=BIT"5 


SEQ 0017 
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000010 IP=B1T3 eT ist INTE PENDING IP=ERR+FLAGS 
000004 1E=BIT2 ERRUPT ENABLE 

PTP=BIT1 BIT 

GO=B1T0 GENERATE BOOT/ INTERRUPT 


sSTTE BIT DEFINITIONS 
SB3=B1T11 ; BOOT TRANSMIT ENABLE 


BOOT TRANSMI 

INTERRUPT TRANSMIT ENABLE 3 
INTERRUPT TRANSMIT ENABLE 2 
INTERRUPT TRANSMIT ENABLE 1 
INTERRUPT TRANSMIT ENABLE 0 


:STCS BIT DEFINITIONS 

TMO=B17 3 TIMER EXPIRED 
LKE=BIT2 LOCKUP ENABLE 
STP=BIT1 sSTTE PARITY BIT 
ENB=B1T0 : SANITY TIMER ENABLE 
:IMSK BIT DEFINITIONS 


BM3=B81711 


S INTERRUPT INHIBIT 
S INTERRUPT INHIBIT 
S INTERRUPT INHIBIT 
IMO=B81T0 INTERRUPT INHIBIT 


PGF BIT DEFINITIONS 


PBF 3=B1T11 SORE GENERATED BOOT FLAG 3 
PBF 2=B1110 
PBF 1=BIT9 
PBF O=BI1T8 BOOT FLAG QO -: 
PIF 3=BIT3 ; INTERRUPT FLAG 
PIF2=BIT2 ; GENERATED INTERRUPT FLAG 
PIF1=BIT1 : GENERATED INTERRUPT FLAG 
PIFO=BITO [PROGRAM GENERATED INTERRUPT FLAG 
zSTF BIT DEFINITIONS 
SBF 3=B1 73 GENERATED BOOT FLAG 
GENERATED BOOT FLAG 
GENERATED BOOT FLAG 
BOOT FLAG 
INTERRUPT 
INTERRUPT 
GENERATED INTERRUPT 
GENERATED INTERRUPT 


DDDDDDDD 
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¢ 


;DCF BIT DEFINITIONS 


BRK3=81T11 ae titoedeT OR POWER LOSS STATE 0 
DISCONNECT OR POWER LOSS STATE 0 
DISCONNECT on POWER LOSS STATE 0 
DISCONNECT OR POWE 
:DCLO/DISCONNECT INTERRUPT FLAG 3 
:DCLO/DISCONNECT INTERRUPT FLAG 2 
:DCLO/DISCONNECT INTERRUPT FLAG 1 

DCFO=BITO :DCLO/DISCONNECT INTERRUPT FLAG 0 


EXC BIT DEFINITIONS 


UI3=B1T11 ; UNEXPECTED 
UI2=B1T10 ; UNEXPECTED 
UI1=BIT9 ; UNEXPECTED 
UI0=B1T8 ; UNEXPECTED 
RTE3=BI1T3 > UNEXPECTED 
RTE2=BiT2 UNEXPECTED INVALID INPUT FLAG 
RTE1=B1T1 UNEXPECTED INVALID INPUT FLAG 
RIEQ=BITO UNEXPECTED INVALID INPUT FLAG 


MTC BIT DEFINITIONS 


MTYP=BIT11 MNT TYPE BIT.O=PG; 1=ST 

MF RM=B1IT10 :MNT FRAME BIT.O=NORMAL; 1=FRAMING ERROR 
MIDO=0 [MNT ID 0 

MID1=BIT8 :MNT ID 7 

MID2=BI1T9 :MNT ID 2 

a SF ed :MNT ID 3 

DSBT=B1T3 :DISABLE BOOT 

MENB=BIT2 sENABLE B11-8 OF MNT 

MLEN=817T1 ZENABLE MAINT. LOOP (IDLE XMIT DRIVERS) 
MDSD=B1T0 ;DISABLE XMIT DRIVER (CAUSE A BREAK) 
TMT=DSBT +MENB+MLEN 


OTHER DEFINITIONS 
P=5726 


eOpPOrS 22626 
RLF =200 


2 


5 
5 
5 
5 
5 
5 
> 
5 
5 
5 
5 
5 
5 


RORY —@  R So ot 
“OOO VWOAUEWN-O 
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RIIA 3 
30=NOV-78 10:58 TEST MACRO DEFINITIONS SEQ 0020 
-SBTTL TEST MACRO DEFINITIONS 








MAINDEC=11=CRIIA 


CRI 


IAA.P11 


— 


BRAAAAAAAA AAA AA AAA AAAAAOCRAO 
NON SS Ss 9 SS 9 Ss SS Ss SS Ss SS ss st 
NNN ee ae ee i ae ae oe ae ae ae ee 


ARR AR RAR 


hy Se eo 
wwe ww SS AY 


oN 
as) 
~ 


30-NOV-78 


012637. 


005037 
132737 
001403 
012737 


MACY11 san Ne 


10:58 


001100 
001140 
001100 
900340 


177777 


002222 
000176 
000174 
000004 
001236 
000200 
001252 


177777 
023756 
002350 
000042 
001250 


L« 
off toon 78 11:06 PAGE 13 
T MACRO DEFINITIONS 


START: 

-SBTTL_ INITIALIZE THE COMMON TAGS 

3sCLEAR THE COMMON TAGS (S$CMTAG) AREA 
MOV ASCMTAG,R6 ct EAR LOCATION TO BE CLEARED 
CLR (R6) + CLEAR MEMORY LOCATION 

CMP 5, RO ;;DONE? * 


tee ;;LOOP BACK IF NO 
K,SP 32SETUP THE STACK POINTER 


ASTA 
: INITIALIZE A FEW VECTORS 
#$SC @#IOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
,@#{OTVEC+2 ;:LEVEL 7 
#SERROR ,aMEMTVEC icEMT i FOR ERROR ROUTINE 
beet @WEMTVEC+2 ; :LEVE 
#STRAP , ANTRAPVEC : TRAP VECTOR FOR TRAP CALLS 
#340, as TRAPVEC +2: LEVEL 7 
DN ,a#PWRVE Cs POWER FAILURE VECTOR 
#340, BUPURVECSS. ; L_ ¥ 


SENDCT , SEOPCT ‘SET it END-OF ~PROGRAM COUNTER 
STIMES : INITIALIZE NUMBER OF ITERATIONS 
SESCAPE + EAR THE ESCAPE ON ERROR ADDRESS 
#1, SERMAX LLOW ONE ERROR PER TEST 
e -$LPADR : INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV - SLPERR SETUP THE art LOOP ADDRESS 
:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT I 
[EQUAL TO A ‘'=1'', SETUP FOR A SOF TWARE SWITCH REGISTER. 
MOV @#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
#64$, ave RRVEC :2SeT UP ERROR VECTOR 
#DSWR, SWR SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP,DISPLAY : 3 AND A_HARDWARE DISPLAY REGISTER 
#-1,aSWR ;TRY TO REFERENCE HARDWARE SWR 
66$ aoe NO TIMEOUT TRAP OCCURRED 


==] 
65$ 
#65%, (SP) [SET UP FOR TRAP RETURN 


ASWREG , SWR ;;POINT TO SOFTWARE SwWR 
#DISPREG, DISPLAY. 
(SP)+,aMERRVEC ;;RESTORE ERROR VECTOR 


$PASS :CLEAR PASS COUNT 
MAPTSIZE,SENVM Ty USER SIZE UNDER APT 
67$ YES,USE NON-APT SWITCH 

678 ASSWREG, SWR “INO, USE APT SWITCH REGISTER 


alee TYPE PROGRAM NAME 
7 TYPE — 3 Fy PROGRAM IF Siett PASS 


68$ 
ASCNDAD , a#42 
68$ 


3s “IF YES 
TYPE ,09$ TYPE ASCIZ STRING 
GET VALUE FOR SOF TWARE sich REGISTER 
a442 ARE WE RUNNING UNDER XXDP/ACT? 
exe *0$ : :BRANCH IF YES 
CMPR $i"/V,41 ARE WE RUNNING UNDER APT? 
BEQ 70$ BRANCH IF YES 


SEQ 0021 
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(2) 023727 001140 000176 SWR , ASWREG 7 SOFTWARE SWITCH REG SELECTED? 
(2) 001005 71$ es CH IF 

(2) 104406 32GET SOFT-SWR SETTINGS 
(2) 000405 BR 71$ 

is) 112737 000001 001134 : #1, $AUTOB ::SET AUTO-MODE INDICATOR 


000433 i BR 68$ :GET OVER THE ASCIZ 
<CRLF>#DIP11=A (11ST) MONOPORT DIAGNOSTIC MAINDEC-11-CRIIA#<CRLF> 


012737 000006 46.4 ;SET TO TRAP 
012737 000004 oe A 34) AN NXM 


SS eS 
NOUS Wewvew 


AAAKRAAAAA 


: -$SIZE SIZE MEMORY 
023656 PARFLG ;SEE IF PARAMETERS TO BE INPUT 
1$ sSKIP IF NOT 
022336 PC,GETPAR ‘GET PARAME TERS 
000 340 7 : #340,PSwW [RISE PRIORITY 
023662 STCCNT S INITIALIZE S.T. COUNT VALUE. 
002524 BEGIN :GO START TESTING 


;C OME HERE ON START AT 200 
023€ 56 NOPAR: CLR PARFLG s CLEAR PARAMETER FLAG 
902014 JMP START [GO TO STARTUP 


= ;COME HERE ON START AT 204 
000001 02365€ SELPAR: MOV #1 ,PARFLG 7SET PARAMETER FLAG 
002014 JMP START 


BEGIN: 
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BASIC REGISTER TESTS 


SERRE EEE EEE EERE 


>*TEST 1 ACR (BIT3-0) WRITE-READ TEST USING A COUNT PATTERN 


SERRE KERR ERE EEE REE EREKEEREREEEEREEEKEEKEEREEKEERE 


réT1: 
ACLR,@ACR ;CLEAR THE wORLD 
:SET SCOPE LOOP “Tt 
;INIT EXPECTED TO 17 
1$: $GDDAT, @ACR SLOAD ACR WITH SeDDAT 
aACR, DISPLY SREAD ACR 
DISPLY, SBDDAT ;COPY ACR INTO $BDDA 
#-<17+1>, SBDDAT: CLEAR ALL BUT BITS UNDER TEST 
wien ,SBDDAT as aft LOADED AGAINST BITS READ 


:SKIP_IF 
1 ZACR BI 13-0 LOAD=READ ERROR 
Reeeae PC ,DMPREG 
001124 : SGDDAT ;BUMP EXPECTED 
177760 #-<17+1>,$GDDAT ;MASK A BITS UNDER TEST 
001124 ene Wi? :DONE A 
1$ : TEST AGAIN IF NO 


002646 #3$,$LPERR 
000017 : #17.aACR : 
100000 #CLR,@ACR SCLEAR THE WORLD 
020704 @ACR.DISPLY [READ ACR 
000017 023610 #17,DISPLY :CHECK BIT3-0 IN ACR FOR 0 

TST? :;SKIP IF RESET CLEARED BIT3-0 IN ACR 

2 :BIT3-0 IN ACR WERE NOT CLEARED BY RESET 
022234 < PC, DMPREG 


So oo oO 
S88L8888 
WW Soe 
3B RO-30 
RMN — SH] NSW 
ABARAOSSOMW 
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. SERRE REE RRR EEE EERE EKER EEK EKER EEE ERE EH 


TEST 2 PGTE (BIT11-8) WRITE-READ TEST USING PGTE COUNT PATTERN 


SERRE REAR RKREREEEEREERKEEKEEEERKEEEEEEKERREEEEKEEK 


té12: 
ZCLEAR THE WORLD 
:SET SCOPE LOOP POINTER 
INIT EXPECTED TO 7400 
1$: *SET ADR TO PGTE 
[LOAD PGTE WITH $GDDAT 
[RESET ADR TO PGTE 
‘READ PGTE 
DISPLY,$BDDAT :COPY PGTE INTO $BDDAT 
#-<7600+1>, SeppAtoc CLEAR ALL BUT BITS UNDER TEST 
001124 SGDDAT, ,SBDDAT : CHECK BITS LOADED AGAINST BITS READ 


N :PGTE BIT11-8 LOAD-READ ERROR ~ 


022234 PC, DMPREG. 
000400 : #BIT8 {BUMP EXPECTED 
170377 ped LT vs bap $6D DDAT :MASK TO BITS UNDER TEST 
001124 SGDDAT,#7400 DONE ALL? 
1$ = TEST AGAIN IF NO 


003046 #3$,SLPERR : CHANGE LOCP CONTROL 
000000 : #PGTEE ,@ACR [RESET ADR TO PGTE 
007400 #7400 ,aPGTE :SET ALL BITS 
100000 :CLEAR THE WORLD 
000000 >SET ADDR TO PGTE 
020474 SREAD PGTE 


007400 023610 #7400.DISPLY CHECK BIT11-8 IN PGTE FOR 0 
“s :SKIP_IF RESET CLEARED BIT11-8 IN PGTE 
- ;BIT11-8 IN PGTE WERE NOT CLEARED BY RESET 
022234 Bc . DMPREG 


c 
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669 SRR RRR EERE EERE EKER EERE ERE 


(4) SATEST 3 PGTE (BIT3-0) WRITE-READ TEST USING PGTE COUNT PATTERN 


CRAKE REREREREAERRREEEREREERREREEERERREREERE EE 


S13: 
ACLR,@ACR CLEAR THE WORLD 
v$, $LPERR [SET SCOPE LOOP POINTER 
#17, $GDDAT : INIT EXPECTED TO 17 
1$: GTEE :SET ADR TO PGTE 
sLOAD PGTE WITH $GDDAT 
SRESET ADR TO PGTE 
sREAD PGTE 
:COPY PGTE INTO $8DDAT 
T:CLEAR ALL BUT BITS UNDER TEST 
"oe ,SBDDAT = CHECK gt LOADED AGAINST BITS READ 


SKIP IF 
N :PGTE BIT3<0 LOAD=READ ERROR 
022234 PC, to steen 
000001 : #BiT0,$GDD ;BUMP EXPECTED 
177760 #-<17+1>, SGDDAT :MASK TO BITS UNDER TEST 
001124 000017 _ SGDDAT,#17 DONE ALL? 
1$ STEST AGAIN IF NO 


003262 #3$,SLPERR [CHANGE LOOP CONTROL 
000000 : ;RESET ADR TO PGTE 
000017 0203 :SET ALL BITS 
100000 CLEAR THE WORLD 
000000 SET ADDR TO PGTE 
020260 aPGTE ,DISPLY “READ PGTE 
000017 023610 #17,DISPLY ;CHECK BIT3-0 IN PGTE FOR 0 

4$ :SKIP IF RESET CLEARED BIT3-0 IN PGTE 
:BIT3-0 IN PGTE WERE NOT CLEARED BY RESET 


> 


N 
022234 PC ,DMPREG 
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ON RR RR FFA FA FRA AOA 
a sn a tg BO a as ss Ss Ss SOS Ps st ss SS SW 
ee eee Nee ee eee eee es ee ee is ew ww ww ww ww ~~ 
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022234 


022234 


020224 


020146 


Ptaaat* 
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TEST THAT IE (PGCS BIT2) CAN BE SET 


RAR AAAAAAAAAAARAAAARARAEREREREREREAAAAAAEAERHERHRAARAAHERAHARERE 


TeTEST 4 


TEST THAT IE (PGCS BIT2) CAN BE SET 


fC FARRAR AAAARARARAEEERAARAEREERARAAARRAARARARARAAAARAAARERAREREEED 


TST4: 


SCOPE 


#CLR,@ACR =CLEAR THE SLATE 

#PGCSE ,@ACR “SET ADR TO PGCS 

WIE, aPGCS :SET IE IN PGCS 
#PGCSE ,@ACR :RESET ADR TO PGCS 
@PGCS,DISPLY | :READ PGCS 

#IE.DISPLY “CHECK FOR IE=1 

TS51§ :iSKIP IF IE IS SET IN PGCS 
N ; IE (PGCS BIT2) CANNOT BE SET 
PC, DMPREG 


- (ROAR RRRRRRRSER EERE SERRE R RRR RRR RR RR RRR SRR RARER RRR RRR ASR RASA RASS 


Se TEST 5 


TEST THAT IE (PGCS BIT2) CAN BE CLEARED 


MRR RPRRRE REPRESSES EZE SEER RRR RR RR RS RSRR RRR ERR RRR RRR SRR RRR RRS RARE SS DI 


TSTS: 


SCOPE 


#PGCSE,@ACR «SET ADDRESS TO PGCS 
#IE,aPGCS SET IE IN PGCS 
MPGCSE ,@ACR » SET ADDRESS TO PGCS 
#1E,aPGCS CLEAR IE IN PGCS 
#PGCSE ,@ACR SET ADDRESS 0 PGCS 
@PGCS,DISPLY TREAD P 

WIE ,DISPLY ey FOR IE=0 

TST6 is SKIP IF IE IS CLEAR IN PGCS 


7:1E (PGCS BIT2) CANNOT BE CLEARED 
;BY WRITING IT TO 0 


N 
PC ,DMPREG 


MR RARAARAARAAARARARERAAEREERERAARAAARAAEHRARARARHRAAARAARREREHEEEEE 


T*TEST 6 


TEST THAT IE (PGCS BIT2) CAN BE CLEARED BY RESET 


+ RARARARAARARERAARARARARRERERATAERARAAARRARARARAARARERARARKRRARKRERAEE 


TST6: 


SCOPE 


#PGCSE ,@ACR :SET ADDRESS TO PGCS 

#1E,aPGCS :SET IE IN PGCS 

ACLR,@ACR :CLEAR THE INTERFACE 

#PGCSE ,@ACR *SET ADR TO PGCS 

@PGCS,DISPLY SREAD PGCS 

WIE ,DISPLY : CHE CK FOR 1E=0 

1ST? SKIP IS IE IS CLEARED BY RESET IN PGCS 


N 
PC ,DMPREG 


ie (PGLS BIT2) CANNOT BE CLEARED BY RESET 


SEQ 0026 
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FERRARA EERE RARER EERE REEREREREEEEREREREREREREREEEER ER 
tSTEST 7 TEST THAT PTP (PGCS BIT1) CAN BE SET 
FERRARA RARER EE ERERERREEKEEKEERERRREREERRREEEREEERERRERREEEE EH 
1817: 
ZCLEAR THE SLATE 
‘SET ADR TO PGCS 
:SET PTP IN PGCS 
:RESET ADR TO PGCS 
[READ PGCS 
Os 3015 #PTP_DISPLY ;CHECK FOR PTP=1 
BN TST160 sSKIP IF PTP IS SET IN PGCS 
N “PIP (PGCS BIT1) CANNOT BE SET 
PC ,DMPREG 


BUI IIS ISIS IOIIIOIIIUIIIDISIIIISISIOIOIOIOISIOIOIDIDIIOIUIOIIOIOIDIIUIOIDISIDIOIDIIOIDITII IDI 
S*TEST 10 TEST THAT PTP (PGCS BIT1) CAN BE CLEARED 
SISOS IIS IO IDICIDISI IOI ICISISIOISISISIOIOIUIDIDIDISIOIDIUIUIOISIOIOISISIIOIUIID IOI IO IU IO iotot 
1ST10: 
017726 MO #PGCSE ,@ACR ;SET ADDRESS be PGCS 
#PTP,aPGCS ;SET PTP_IN PGCS 
;SET ADDRESS ai PGCS 
;CLEAR PTP IN PGCS 
sSET ADDRESS TO PGCS 
EAD PGCS 
023610 APTP,DISPLY 
TST11 P IF PTP_IS CLEAR _IN PGCS 
“PrP (PGCS BIT1) CANNOT BE CLEARED 


;BY WRITING IT TO 0 


© DEERE ERR EERE EKER EERE 
S*TEST 11 TEST THAT PTP (PGCS BIT1) CAN BE CLEARED BY RESET 
FREER EER RRR EEE EERE EERE EERE REE ERKKE 
8111: 
000001 MOV #PGCSE ,@ACR :SET ADDRESS To PGCS 
000002 TP, aP ET PTP IN PGCS 
100000 :CLEAR THE INTERFACE 
000007 “SET ADR TO PGCS 
017620 TREAD PGCS 
000002 023610 #PTP,SISPLY “CHECK FOR PTP=0 
TST12 :;SKIP IS PTP IS CLEARED BY RESET IN PGCS 
N :PTP (PGCS BIT1) CANNOT BE CLEARED BY RESET 
022234 PC, DMPREG 


N 
022234 PC ,DMPREG 
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675 FERRARA REAR EREEEEEREERREERERERREERREERERREEERERERREREREEK EE 


TRTEST 12 STTE (B1T11-8) WRITE-READ TEST USING STTE COUNT PATTERN 


SERA EREEEEREEREEREREEERARERRRRERREKEREERERKEKEEE EE 


rsrie: 
CLEAR THE WOR 
7SET SCOPE LOOP POINTER 
: INIT EXPECTED TO 7400 
1$: Ss :SET ADR TO STTE 
LOAD STTE ee apie 


4 
oP E INTO $8DDA 
SBDDAT; CLEAR ALL BUT BI rs " WER TEST 
SGDDAT , SBDDAT : CHECK BITS LOADED AGAINST BITS READ 


SKIP IF OK 
me ;STTE BIT11-8 LOAD-READ ERROR 


DMPREG 
mite. $ DAT — ; BUMP EXPECTED 
eerabole SGDDAT sane aise TO BITS UNDER TEST 


SGDDAT #7400 
1$ STEST AGAIN IF NO 
ns, $LPERR ‘CHANGE LOCP CONTROL 
#STTEE,@ACR TRESET ADR TO STTE 
#7600, aSTTE SET ALL BITS 
SCLEAR THE WORLD 
‘SET ADDR TO STTE 
TREAD STTE 


D 
023610 #7400,DISPLY ;CHECK BIT11-8 IN STTE FOR 0 
4$ >SKIP_IF RESET CLEARED BIT11-8 IN STTE 
;BIT11-8 IN STTE WERE NOT CLEARED BY RESET 


PO Po oS ay o-4 5 
AARHOKOWVSO 


RENVEKSRSAV 


~— 
om 


RRRRERERERRERE 
RSS 


N 
PC .DMPREG 


St tt 3 3 3 SS SS 2 3 SP 2 3 SS SS St SWI 
NNN eee eee ee Ss a aa fe ae a 
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FERRARA REE EEA REE EEEEEEEEKEEKEREEREEREERERERRREEREREEKEREKK EE 


TATEST 13 STTE (BIT3-0) WRITE-READ TEST USING STTE COUNT PATTERN 


FERRARA AERA EREEERERREERERRE EERE EERE 


18113: 

:CLEAR THE WORLD 
:SET SCOPE LOOP POINTER 
zINIT san 16 att fo 17 


STT 
[LOAD STTE WITH SGDDAT 
RESET ADR TO STTE 
READ STTE 
COPY STTE INTO $8DDAT . 
[CLEAR ALL BUT BITS UNDER TEST 
ae St LOADED AGAINST BITS READ 


: IF OK 
ZSTTE B173-0 LOAD-READ ERROR 


BUMP EXPECTED , 

MASK TO BITS UNDER TEST 
ona #17 [DONE ALL? 
1$ TEST AGAIN IF NO 
#3$,$LPERR [CHANGE LOOP CONTROL 

SRESET ADR TO STTE 

SET ALL BITS 

SCLEAR THE WORLD 

;SET ADDR TO STTE 
@STTE ,DISPLY ;READ STTE 
#17,DISPLY CHECK BIT3-0 IN STTE FOR 0 
4$ :SKIP IF RESET CLEARED BIT3-0 IN STTE 
;B1T3-0 IN STTE WERE NOT CLEARED BY RESET 


1$: 


VRRORAY SS 
WRASNRASM RW 
Ssseaceses 
= WNNN SN 
—— = AWWW 
MmNrMY——NMNN— WV 
AAROVEALOO 


Paar ganna 
MENMFSAOLKLNO 


PERE RR ER REE EERE EE EE ES 


N 
PC ,DMPREG 
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et et wt 3 7 23) 2 oe = od nt = 3) 2) 2 2 od ot ot 2 = ot oH 
NNN eee ee eee ee ae eee ee 


FREES 
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FERRER REE EERE REE EERE EERE ERE REE 
TSTEST 14 TEST THAT LKE (STCS BIT2) CAN BE SET 
FREER AEE REE EERE EERE EERE 
téT14: 
100000 MOV R,@ACR :CLEAR THE SLATE 
000003 ‘SET ADR TO STCS 
:SET LKE IN STCS 
000003 CSE, aAC :RESET ADR TO STCS 
017112 @STCS,DISPLY | :READ STCS 
000004 #LKE ,DISPLY =CHECK FOR LKE=1 
TST1§ :;SKIP IF LKE IS SET IN STCS 
:LKE (STCS BIT2) CANNOT BE SET 


lite © bl 


A BWW A? VS MW BR BUN WW A A SS SS WW BE BRU SS Wy SS SS SS SW 
a a a a a a a a a 


N 
022234 ~ PC .DMPREG 


FRI E RK IK 
SRTEST 15 TEST THAT LKE (STCS BIT2) CAN BE CLEARED 
RRR REE REREEKEEREEEKKEKEK 
1ST15: 
000003 017056 MO #STCSE,@ACR :SET ADDRESS TO STCS 
000004 ;SET LKE IN STCS 
‘000003 : ;SET ADDRESS TO STCS 
#LKE ,aSTCS ;CLEAR LKE IN STCS 
000003 #STCSE AACR ;SET ADDRESS TO STCS 
017026 @STCS,DISPLY | :READ STCS 
000004 023610 #LKE ,DISPLY ZCHECK FOR LKE=0 
TST16 7;SKIP IF LKE IS CLEAR IN STCS 
N :LKE (STCS BIT2) CANNOT BE CLEARED 
022234 PC ,DMPREG 


BY WRITING IT TO 0 


REE REE RRR KEE ER ERK EKER KEE KEKE KK 

SSTEST 16 TEST THAT LKE ‘STCS BIT2) CAN BE CLEARED BY RESET 

° FO IIIT TTR RRR KKK EERE KR EEK EERE KEKE EKER KEK 

S116: 
000003 MO #STCSE ,@ACR ;SET ADDRESS TO STCS 
000004 #LKE ,aSTCS ;SET LKE IN STCS 
100000 #CLR.@ACR CLEAR THE | INTERFACE 
000003 #STCSE ,@ACR ZSET ADR TO STCS 
016750 @STCS.DISPLY  :READ sTcS. 
000004 023610 #LKE ,DISPLY CHECK FOR LKE=0 

TST17 SKIP IS LKE IS CLEARED BY RESET IN STCS 

:ikE (STCS BIT2) CANNOT BE CLEARED BY RESET 
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N 
022234 PC ,DMPREG 
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FREER ERERERER REE REE REE KK 


tSTEST 17 TEST THAT STP (STCS BIT1) CAN BE SET 
FERRER REAR EREREEREEREEKEREEEEREREREEREKEEEKREKEEEKEREEREE 
téT17: 
016714 MO : CLEAR THE SLATE 
“SET ADR TO STCS 
:SET STP IN STCS 
:RESET ADR TO STCS 
Oz MO aSTCS,DISPLY  :READ STCS 
023610 #STP,DISPLY SCHECK FOR STP=1 
BN TST20 ::;SKIP IF STP IS SET IN STCS 
N :STP (STCS BIT1) CANNOT BE SET 
PC ,DMPREG 


SL REE REE REE EERE REE KKKREEEREREERKEERERKREEEEKEEEEKERK 


T*TEST 20 TEST THAT STP (STCS BIT1) CAN BE CLEARED 


RRR REE REAR KEKE KERR EKER 


$120: 
ASTCSE ,@ACR SET ADDRESS a a STCS 
ASTP,aSTCS SET STP_IN STCS 
ASTCSE ,@ACR ;SET ADDRESS TO STCS 
S ;CLEAR STP IN STCS 
;SET ADDRESS TO STCS 
SREAD STCS 
023610 ASTP,DISPLY CHECK FOR STP=0 
TST21 :;SKIP IF STP IS CLEAR IN STCS 
STP (STCS BIT1) CANNOT BE CLEARED 


;BY WRITING IT TO 0 


SC RRR RRR REE EEE EERE EERE ERE KEE ERE RRR EKEEEKEKKEKE KE 


S*TEST 21 TEST THAT STP ‘STCS BIT1) CAN BE CLEARED BY RESET 


SERRE REE EERE EERE KEE EERE REE REE 


$121: 


& 


tee i i i de i a a nn 


N 
PC ,DMPREG 


ASTCSE ,@ACR SET ADDRESS TO STCS 

ASTP,ASTCS :SET STP IN STCS 

A#CLR,@ACR :CLEAR THE INTERFACE 

AMSTCSE ,@ACR :SET ADR TO STCS 

@STCS,DISPLY :READ STCS 
000002 ASTP DISPLY CHECK FOR STP=0 

TST22 :;SKIP_IS STP_IS CLEARED BY RESET IN STCS 
STP (STCS BIT1) CANNOT BE CLEARED BY RESET 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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N 
022234 PC ,.DMPREG 
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CRIIAA.P11 30-Nov-78 10:58 T22 TEST THAT ENB (STCS BITO) CAN BE SET SEQ 0032 
683 FARRER REAR EREEREE EEE KKK KEK 
(4) ZSTEST 22 TEST THAT ENB (STCS BITO) CAN BE SET 
(4) MARAAAAAAALASAALAALALLALASALSLS ES ESSE SSS SC SSCS RSS RSPCA S ERR SSS 
(3) 005066 000004 +§122: SCOPE 
(1) 005070 012777 100000 016474 MOV ACLR,@ACR :CLEAR THE SLATE 
(1) 005076 012777 000003 016466 MOV ASTCSE,@ACR ‘SET ADR TO STCS 
(1) 005104 012777 000001 016464 MOV #ENB,aSTCS :SET ENB IN STCS 
(1) 005112 012777 000063 016452 MOV #STCSE,@ACR :RESET ADR TO STCS 
(1) 005120 017737 016452 023610 MOV @STCS,DISPLY | :READ STCS 
(1) 005126 032737 900001 023610 BIT #ENB_DISPLY S CHECK FOR ENB=1 
(3) 0051 001003 BNE TST23 :;SKIP IF ENB IS SET IN STCS 
(1) 005136 104027 ERROR+ N ‘ENB (STCS BITO) CANNOT BE SET 
a 005140 004737 022234 JSR PC ,DMPREG 
( 

(5) ° SERRE 
(4) T*TEST 23 TEST THAT ENB (STCS BITO) CAN BE CLEARED 

(4) Whee eeRRRRRARSARSSALS SESE SES ES SS SSS SPCC CCS OSASASEAESAESASAASASE SE SG 
(3) 005144 000004 1$123: SCOPE 

(1) 005146 012777 000003 016416 MOV #STCSE,@ACR :SET ADDRESS TO STCS 

(1) 005154 012777 000001 016414 MOV #ENB, aSTCS -SET ENB IN STCS 

(1) 005162 012777 000003 016402 MOV ASTCSE,@ACR ;SET ADDRESS TO STCS 

(1) 005170 042777 000001 016400 BIC #ENB, a@STCS :CLEAR ENB IN STCS 

(1) 005176 012777 000003 016366 MOV #STCSE,@ACR ;SET ADDRESS TO STCS 

(1) 005204 017737 016366 023610 MOV @STCS,DISPLY  :READ STCS 

(1) 005212 032737 000001 023610 BIT #ENB,DISPLY ‘CHECK FOR ENB=0 

(3) 005220 001403 BEQ TST 24 :;SKIP IF ENB IS CLEAR IN STCS 

(1) 005222 104030 ERROR+ N ‘ENB (STCS BITO) CANNOT BE CLEARED 
(1) 005226 004737 022234 JSR PC ,DMPREG 

ty :BY WRITING IT TO 0 

(5) CFR RRR ERE ERR ERE 
(4) T*TEST 26 TEST THAT ENB ‘STCS BITO) CAN BE CLEARED BY RESET 
(4) EERE RARER EEE ERE RRR KER EERE 
(3) 005230 000004 1$724: SCOPE 

(1) 005232 012777 000003 016332 MOV #STCSE,@ACR :SET ADDRESS TO STCS 

(1) 005240 012777 000001 016330 MOV #ENB,aSTCS :SET ENB IN STCS 

(1) 005246 012777 100000 016316 MOV #CLR,@ACR 7 CLEAR THE INTERFACE 

(1) 005254 012777 000003 016370 MOV ASTCSE,@ACR *SET ADR TO STCS 

(1) 005262 017737 016310 023610 MOV @STCS,DISPLY § :READ ercS 

(1) 005270 032737 000001 023610 BIT #ENB_DISPLY “CHECK FOR ENB=0 

(3) 005276 001403 BEQ TST25 ':SKIP IS ENB IS CLEARED BY RESET IN STCS 
(1) 005300 104031 ERROR+ N ZENB (STCS BITO) CANNOT BE CLEARED BY RESET 
(1) 005302 004737 022234 JSR PC, DMPREG 
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FREER ARR EREEREE EERE EE EERE RREREEREEEERERERHRERERRERER EH 


TRTEST 25 “STCS (BIT15-8) WRITE-READ TEST USING STCS COUNT PATTERN 


SRE 


18125: 
CLEAR THE WORLD 
SET SCOPE LOOP POINTER 
P INIT EXPECTED TO 177400 
1$: TCSE ,@ACR 7SET ADR TO STCS 
:LOAD STCS WITH $GDDAT 
SRESET ADR TO STCS 
READ STCS 
;COPY STCS INTO S$BDDAT 
#-<177400+1>, SBDDAT; CLEAR ALL BUT BITS UNDER TEST 
oe , SBDDAT : CHECK t on LOADED AGAINST BITS READ 


I 
N :STCS BIT15-8 LOAD-READ ERROR 


PC,DMPREG 
#B1T8,$GDD 5 tl EXPECTED 
#-<177200"1>, SGDDAT Dee TO BITS UNDER TEST 
* ale #177400 :DONE A 
1$ ; TEST AGAIN IF NO 
#3$,SLPERR [CHANGE LOCP CONTROL 
RESET ADR TO STCS 


100000 
005332 
Annet 


00000 

001124 
000003 
016216 
023610 
000377 
001124 


Nae — 
> SAIWAKRK SH 
—— 3 ONAN — — fo 
WN WW 
BRARKORBRONFSOS 


022234 
0 


WSTCSE,@ACR . :SET ADDR TO STCS 

@STCS,BISPLY | :READ STCS 
177400 #177400,DISPLY =CHECK BIT15-8 IN STCS FOR 0 

4$ :SKIP IF RESET CLEARED BIT15-8 IN STCS 

N 7BI715-8 IN STCS WERE NOT CLEARED BY RESET 
0222364 PC ,DMPREG 
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10:58 126 IMSK (BIT11-8) WRITE-READ TEST USING IMSK COUNT PATTERN 


FERRER ERR ERE EERE EE 


{TEST 26 IMSK (BIT11-8) WRITE-READ TEST USING IMSK COUNT PATTERN 


FEAR EREEEEEREEREREREKREREKEEREREREEEEEREEE RRR 


78126: 

:CLEAR THE WORLD 

:SET SCOPE LOOP POINTER 

ZINIT EXPECTED TO 7400 
1$: #IMSKE, I 
$GDDAT . aIMSK 
#IMSKE .@ACR 
@IMSK,DISPLY MSK 
DISPLY,$BDDAT :COPY IMSK INTO $BDDAT 
#-<7400+1>, SBDDAT;CLEAR ALL BUT BITS UNDER TES 
SCDDAT. ,SBDDAT CHECK BITS LOADED AGAINST BITS "READ 


: SKIP IF OK 
mr : IMSK BIT11-8 LOAD-READ ERROR 


DMPREG 
wits $GDDAT BUMP EXPECTED 
#-<7400+1>, $GDDAT jMASK TO BITS UNDER TEST 
SGDDAT, #7400 :DONE A 
1$ S TEST AGAIN IF NO 
#3$,$LPERR :CHANGE LOCP CONTROL 
#IMSKE ,@ACR “RESET ADR TO IMSK 
#7400, a1MSK sSET ALL BITS 
#CLR,@ACR ZCLEAR THE WORLD 
#IMSKE ,@ACR ‘SET ADDR TO IMSK 
@IMSK,DISPLY | :READ IMSK 
007400 023610 #7400.DISPLY | :CHECK BIT11-8 IN IMSK FOR 0 
4$ :SKIP IF RESET CLEARED BIT11-8 IN IMSK 
[BIT11-8 IN IMSK WERE NOT CLEARED BY RESET 
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aki a a ad) a as od) od ed nd 2 od 8d dt 
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N 
022234 PC ,DMPREG 
005736 : 
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SERRE KEE EERE EEE REE ERE KERR EEE EREEKE KEE 


SATEST 27 IMSK (BIT3-0) WRITE-READ TEST USING IMSK COUNT PATTERN 


SAAR EERE EEEREE REE 


$8127: 
ACLR,@ACR CLEAR THE WORLD 
#1$,$LPERR :SET SCOPE LOOP POINTER 
#17, $GDDAT : INIT EXPECTED TO 17 
1$: #IMSKE , AACR :SET ADR TO IMSK 
SiheRE’ ty SLOAD_IMSK WITH $GDDAT 


@AC “RESET ADR TO IMSK 
@IMSK,DISPLY | :READ IMSK 
DISPLY,$BDDAT :COPY IMSK INTO $B8DDAT 
#-<17+1>, $BDDAT:CLEAR ALL BUT BITS UNDER TEST 
001124 MP SGDDAT. , SBDDAT CHECK BITS LOADED AGAINST BITS READ 


OK 
N ; IMSK BIT3-0 LOAD-READ ERROR 


PC,DMPREG 
#B1T0,$GDDAT ;BUMP EXPECTED 
#-<17+1>,$GDDAT ;MASK TO BITS UNDER TEST 
SGDDAT , #17 DONE ALL? 

: TEST AGAIN IF NO 


1$ 
#3$,SLPERR ; CHANGE LOCP CONTROL 
AMIMSKE ,@ACR ;RESET ADR TO IMSK 
#17 ,aIMSK sSeT ot BITS 
;CLEAR THE WORLD 
7 SET i. TO IMSK 
@IMSK ,DISPLY ;READ IMSK 
023610 #17,DISPLY :CHECK BIT3-0 IN IMSK FOR 0 
4$ SKIP IF RESET CLEARED BIT3-0 IN IMSK 
:BIT3-0 IN IMSK WERE NOT CLEARED BY RESET 


lelelelelelelelea) 
ad ad ad ad ad aa od od 


t 


022234 
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FEAR REAR RRERRERER ERE EERE 


TRTEST 30 MTC (B1T11-8) WRITE-READ TEST USING MTC COUNT PATTERN 


SERRE ERE EKEKKKEE 


18130: 
#CLR,@ACR :CLEAR THE WORLD 
#1$,$LPERR :SET SCOPE LOOP POINTER 
#7400,$GDDAT  :INIT EXPECTED TO 7400 
#MTCE.a@ACR :SET ADR TO MTC 
SGODAT, amc ‘LOAD MTC WITH $GDDAT 
WMTCE,@ACR [RESET ADR TO MTC 
TREAD MTC 
:COPY MTC INTO $8DDAT 
sappy. CLEAR ALL BUT BITS UNDER TEST 
SGDDAT, ,SBDDAT : CHECK BITS LOADED AGAINST BITS READ 


I 
3 [MTC BIT11-8 LOAD-READ ERROR 


DMPREG 

mite DAT BUMP EXPECTED 

r<7400s1>, $GDDAT :MASK TO BITS UNDER TEST 
:DONE ALL? 


SGDDAT, #7400 
1$ [TEST AGAIN IF NO 
#3$,$LPERR : CHAN 


88 
$+ 


oO 
soo 


1$: 


SNONMUEU 
g 


ad ad od 
lh aah all 
mron—ul 
AROOor 


SET ADDR TO MTC 
aMTC.DISPLY [READ MTC 
023610 #7400, DISPLY ‘CHECK BIT11-8 IN MTC FOR O 
f 4$ SKIP IF RESET CLEARED BIT11-8 IN MTC 
“BIT11-8 IN MTC WERE NOT CLEARED BY RESET 
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693 SRR EERE RRA E 


S*TEST 31 MTC (BIT3-0) WRITE-READ TEST USING MTC COUNT PATTERN 


5 RARER REAAEEREEEREERARAEREERERAEREAERRAERAEEREREEREAREEREEREKKEEERAKEEEE 


TST31: 
#CLR,@ACR sCLEAR THE WORLD 
#1$,$LPERR 7SET SCOPE LOOP POINTER 
#17, $GDDAT ZINIT EXPECTED TO 17 
1$: #MTCE ,@ACR :SET ADR TO MTC 
SGDDAT , aMTC sLOAD MTC WITH $GDDAT 
AMTCE ,@ACR sRESET ADR TO MTC 
aMTC ,DISPLY :READ MTC 
DISPLY,$BDDAT :COPY MTC INTO $BDDAT 
#-<17+1>, $BDDAT:CLEAR ALL. BUT BITS UNDER TEST 
$GDDAT,SBDDAT  ;:CHECK BITS LOADED AGAINST BITS READ 
2$ SKIP IF OK 
N ‘"" SMTC BIT3-0 LOAD-READ ERROR 


PC,DMPREG 

#B1T0,$GDDAT ;BUMP EXPECTED 

#-<17+1>,$GDDAT ;MASK TO BITS UNDER TEST 
;DONE ALL? 


SGDDAT 417 : 
1$ TEST AGAIN IF NO 
#3$ ,SLPERR ; CHANGE LOCP CONTROL 
RESET ADR TO MTC 
SET ALL BITS 
:CLEAR THE WORLD 
:SET ADDR TO MTC 
aMTC ,DISPLY READ MTC 
023610 #17,DISPLY CHECK BIT3-0 IN MTC FOR 0 
4$ SKIP IF RESET CLEARED BIT3-0 IN MTC 
:BIT3-0 IN MTC WERE NOT CLEARED BY RESET 


—N 
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ABARAORKOMFOS 
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023474 PC,GETSIC :DUMP SID ON PASS 1 
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;DUAL ADDRESSING TEST 

A COUNT PATTERN IS DRIVEN THROUGH THE > hee to UNDER TEST 
SAND ALL OTHER REGISTERS ARE CHECKED FOR AN a 
SALL_THE IIST ae Beket ARE TESTED SEQUENTIAL 

: THIS TEST IS NOT PERFORMED IF THERE ARE OTHER TRANSMITTING 
> ;NON-INHIBITED UNITS ON THE LIST _ (CONF I1G=3), SINCE THE 
REGISTER SNAPSHOT COULD BE INVALID 


Perit e terri iii iii iii titi iii ititii tii iititt, 
“RTEST 32 DUAL ADDRESSING TEST OF ALL REGISTERS 
LARA RR EERE ERE REAR ERE RE EERE RERERE RRR RRR 
18132: 
023660 000003 CMP CONF 1G, 43 SEE IF CONFIG #3 (OTHER ACTIVE UNITS) 
BNE 11$ :SKIP_IF NO 
99$ [DON'T DO TEST IF YES 
11$: o¢ ;SET COUNTER FOR 16 REGISTERS 
R4 ;SET POINTER FOR REGISTER ADDRESS 
2 SET ae ist INITIAL REGISTER DATA 


¢ EAR GISTER NUMBER 

;SELECT REGISTER FROM TABLE 

;PUT REGISTER CONTENTS INTO SNAP 
ADR CODE 


014724 


;D0 10 
; CLEAR TEST DATA WORD 
“LOAD ey INTO REGISTER 


[BUMP 

:D0 0-77777. (DO NOT SET ‘‘CLR’’) 

SET COUNTER FOR 16 REGISTERS 

>SET POINTER FOR REGISTER ADDRESS TABLE 
SET POINTER FOR INITIAL REGISTER DATA 
‘SELECT Lye Age FROM TABLE 


[FETCH ORIGINAL REGISTER DATA 
$GDDAT,$BDDAT CHECK FOR ANY CHANGE IN REGISTER 
4$ SKIP IF NO CHANGE 
44 ADDRESSING ACR ALSO ADDRESSED REGISTER IN $TMPO 
PC . DMPREG 


;BUMP ADR CODE 
RS > CHECKED ALL REGISTERS? 
3$ : CHECK ALL REGISTERS 
#16.,R5 ;SET COUNTER FOR 16 REGISTERS 
#0,R4 SET POINTER FOR REGISTER ADDRESS 
001110 #5$,$LPERR :SET SCOPE LOOP POINT 
$STMP3 ty Hetty STMP3 
014554 5$: CLEAR THE IIST 
‘ ‘SET POINTER FOR INITIAL ee ti ick DATA 
;SET COUNTER TO READ 16 REGISTER 
SET POINTER FOR REGISTER ADDRESS 
meer REGISTER 
@ADR, (3)+ 2 REGISTER DATA 
R2 3 ADR CODE 
Ri. ;DONE 16? 
6$ :DO 16 


Sbtuaosane 
Ne ee ee ee ey 





SN 


050 
O54 


RI 
40-Nov-78 


a 30A(1052) 
10:58 


110437 001176 
005000 


eee 11:06 


PAGE 29-1 
DUAL ADDRESSING TEST OF ALL REGISTERS 


MOVB RS, $TMPO ;STMPO=REGISTER BEING WRITTEN 
RO [START AT 0 


CLR 


SEQ 0039 


C=11-CRIIA sang tH 30A(1052) _30-NOV-78 11:06 PAGE 30 
AA.P11 30-NOV=78 10:58 T32 DUAL ADDRESSING TEST OF ALL REGISTERS 


113777 001176 014506 7S: $TMPO, ACR sSELECT REGISTER 
000 RO,R1 :COPY RO 
900001 MPB —s. RG__APGCSE *PGCS? 
10$ :SKIP IF YES 
000003 MPR —s RG ASTCSE *STCS? 


‘SKIP IF YES 
000015 iy C? 


P_ IF NO 
000007 CLEAR MAINT BITS 
20$ SKIP 


000001 10$: :D0 NOT SET GO 
014450 : [LOAD DATA INTO REGISTER 
RO [BUMP DATA 
;LOAD 0-77777 INTO REGISTER 
SET POINTER FOR ye FL ADDRESS TABLE 
SET COUNTER FOR 16 REGISTERS 
SET POINTER FOR INITIAL CONTENTS TABLE 
R2,@ACR ZSELECT A REGISTER 
(3) +, $GDDAT SFETCH INITIAL CONTENTS OF REGISTER 
014410 @ACR,$TMPO 21S SELECTED ros THE ONE WRITTEN? 
9$ 7SKIP TESTING IF YES 
014404 1126 @ADR , SBDDAT FETCH REGISTER DATA 
014372 @ACR,S$TMP1 sSAVE ADDRESS OF REGISTER CHECKED IN $TMP1 
001124 001126 MP $GDDAT,$BDDAT CHECK REGISTER FOR ANY CHANGES 
9$ ;SKIP_IF NO CHANGE 
44 sADDRESSING REGISTER IN $TMPO ALSJ 


022234 PC ,DMPREG 
:ADDRESSED REGISTER IN STMP1 
[BUMP AD 


R CODE 
“CHECKED ALL REGISTERS? 
CHECK ALL REGISTERS 
[BUMP POINTER FOR REGISTER ADDRESS 
DONE ALL? 
:DO ALL 


Srp ee SH Hp 
23 Of 2 ao 
NH NNMONNS 

YN 
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vee th 30A(1052) 30-NOV-78 11:06 PAGE $, 


INDIVIDUAL LINE TESTS 
000000 #0,R4 7SET_INDEX 
007324 J PC,LINTST ;TEST LINE 
000001 #1,R4 
007324 PC,.LINTST 
000002 #2,R4 
007324 PC,LINTST 
00003 #3,R4 


0 . 
007324 J PC,LINTST E 
023570 DNUM A 


016072 J =TEST PGF ONLINE 
023570 ‘SET INDEX TO ID # 
A R4 : SHIFT 


; SHI 
017674 TEST STF ONLINE 
020546 ENDTST SKIP OVER SUBROUTINE 
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007324 010437 023614 LINTST: MOV R4,LINMBR SAVE LINZ UNDER TEST 
007350. 006304 ASL R4 sMAKE INDEX INTO A WORD POINTER 


SSUE A ps a INTERRUPT REQUEST AND CHECK FOR: 


IT TO SET 
“DCF REGISTER TO STAY RESET 
sEXC REGISTER TO STAY RESET 


LARK 


TATEST 33 CHECK A LEGAL PGM PI REQUEST FOR PROPER OPERATION 
'WeAAAAAEAASRARASAASAALALAAALASLE SSS SS SSCS CSCS CCP CC Cee eee eee eee ean 

18133: 

177776 CL ;LOWER PRIORITY TO ALLOW INTERUPTS 

022042 ji sENABLE MAINT LOOPBACK 

000000 TEE, @ACR sSELECT PGTE 

020526 PGITAB(4), @PGTE * LOAD PIE 

000001 #G0,aPGCS 3; TRANSMIT 

000001 #PGCSE,aACR SELECT PGCS 

014176 @PGCS,$BDDAT sREAD PGCS 

004000 “patie - SBDDAT > CHECK FOR RDY 


$ 
020516 MOV SIDTAB(4), SGDDAT: LOAD EXPECTED PGCS 
ae SETTING PGCS GO DID NOT CLEAR RDY 
022234 — 


: fob Oe TIMER 
000001 014134 2$: #PGCSE,@ACR 7 SELECT 
014134 001126 MOV @PGCS,$BDDAT sREAD pecs’ 
004000 001126 #PRDY , $BDDAT + CHECK FOR RDY 
3$ sSKIP IF SET 
RO ;TIMER =0? 
2$ ;TRY AGAIN IF NO 
020516 SIDTAB(4) , SGDDAT;LOAD EXPECTED WITH 
004000 #PRDY , $GDDAT :SID + RDY 
44 sPGCS RDY DID NOT SET ON A PGM PI 


022234 PC,DMPREG 
000005 0 : SELECT PGF 
014062 :READ PGF 
000017 FETCH EXPECTED FLAG BITS 
001124 ScDDAT, . SBDDAT “SKIP tr Ok CORRECT FLAG 
44 ;PGM PI DID NOT SET CORRECT FLAG 
022234 S PC ,DMPREG 
000007 : WCE, aACR SELECT DCF 
014022 ' aDCF ,DISPLY READ DCF 
5$ “SKIP IF 0 


44 “PGM PI SET A DCF CONDITION 
PC ,DMPREG 
0 : MEXCE ,@ACR sSELECT EXC 
013776 @EXC ,DISPLY READ EXC 
6$ sSKIP IF 0 
44 :PGM PI SET AN EXC CONDITION 
022234 PC ,DMPREG 
MlTFE ,@ACR sSELECT STF 
007620 ! 023 @STF ,DISPLY READ STF 
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CRIIAA.P11 30-NOV-78 10:58 133 CHECK A LEGAL PGM PI REQUEST FOR PROPER OPERATION 


863 007626 001403 . BEQ 7$ ;SKIP_IF CLEAR 
864 007630 104044 ERROR+ 44 :PGM PI SET AN STF CONDITION 
865 007632 004737 1422234 JSR PC ,DMPREG 
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000017 #17,R0 zSET ALL 4 LINES 
020526 PGITAB(4),RO  ;CLEAR LINE UNDER TEST 

000005 013716 #PGFE,@ACR =SELECT PGF 

013716 RO, aPGF :CLEAR ALL PIFS EXCEPT LINE UNDER TEST 
000005 013704 #PGFE,@ACR ZSELECT PGF 

013704 1202 aPGF ,$TMP2 ZREAD PGF 

000001 #PGCSE ,@ACR ZSELECT PGCS 

013670 02 @PGCS,DISPLY  :READ PGCS 

000010 023610 #IP.DISPLY 


7$: 


022234 PC ,.DMPREG 

013652 : . SAVE OLD 

013644 PI INFORMATION 

007770 013636 #9$ ,AlIIV ;LOAD NEW PI VECTOR 
013632 #340 ,a11IP ;LOAD NEW INT. LEVEL 

177776 PS sALLOW PI 


STALL 
000340 177776 #340,PS SLOCKOUT PI 
BR 10$ ‘SKIP OVER ERROR 
sFIX STACK 
44 ‘PGF PI WITH IE=0 
022234 PC ,DMPREG 
: #12$,alI1V ‘:LOAD NEW PI VECTOR 
: SELECT PGCS 


TINIT PI LEVEL 
#40, $TMP6 [DROP PI LEVEL BY 1 
$TMP6 PS SLOWER PSW 


STALL 
$TMP6,4140 : TRIED ALL LEVELS? 
11$ BR IF NO 
177776 MOV LOCKOUT PI 
, + 3NO PGF PI WITH IE=1 
:SKIP NEXT TEST 


FIX STACK 
RIGHT JUSTIFY 


Ss 


THE PI LEVEL 
$TMP6 ;ADD 1 TO MAKE CORECT LEVEL 
STMP6, ITIL CHECK AGAINST KNOWN LEVEL 
13$ :SKIP_IF OK 
44 PGF PI TO THE WRONG LEVEL 
PC ,DMPRE 

sRESTORE 


G 

(SP)+,aI11V 

(SP)+,a@1IIP :OLD PI INFO 

#PoFE ,@ACR SELECT PGF 

PIF TAB(4) ,SGDDAT; FETCH FLAG BIT 

$GDDAT , aPGF CLEAR FLAG 

$GDDAT CLEAR EXPECTED 
000005 #PGFE ,@ACR SELECT PGF 
013366 l @PGF , SBDDAT sREAD PGF 

123 SKIP IF OK 

44 SWRITING A 7 TO PGF FLAG DID NOT 


esssesesesesssesssesssessse 
— 2 4 43 


ks 8 a a dd dd = oo) 6) 2) = 3 
Ce EES Pee PELE LP EE EE Se 


NON NY SS es 
ae NNOWWUISES & WWh eo om 
pt eee PE: 


oo--— 
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925 010216 006737 022234 JSR PC, DMPREG 
925 010222 f 


CLEAR IT 
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; ISSUE A PROGRAM BOOT REQUEST AND CHECK FOR: 
;RDY TO SET 

;PBF BIT TO SET 

;DCF REGISTER TO STAY RESET 

EXC REGISTER TO STAY RESET 


° FREER EEE REE REE RRR REE REE RK REE KEE EEE 
TRTEST 34 CHECK A LEGAL PGM BOOT REQUEST FOR PROPER OPERATION 
mAe tee eee eRe RPE EERRRRRRRSESESSLESSS ES SSS SELES ESSE SESS SEES ES 
010222 00000 . 18134: 
022042 PC, SETMNT ;ENABLE MAINT LOOPBACK 
000000 #PGTEE ,@ACR SSELECT PGTE 
0205 36 PGBTAB(4) ,aPGTE :LOAD PIB 
000001 #G0,aPGCS : TRANSMIT 
RO S INITIALIZE TIMER 


000001 : #PGCSE ,@ACR ZSELECT PGCS 
013310 aPGCS ,$BDDAT :READ PGCS 
004000 ! #PRDY , SBDDAT CHECK FOR RDY 

3$ Hy IF SET 

RO : ba ele 

2$ AGAIN IF NO 
020516 SIDTAB(4) ,$GDDAT: LOAD EXPECTED WITH 
004000 :SID_+ RDY 


#PRDY , $GDDAT 
44 :PGCS RDY DID NOT SET ON A PGM BOOT 
022234 PC ,DMPREG 
5 : A#PGFE ,@ACR SELECT PGF 
EAD PGF 


[FETCH EXPECTED FLAG BITS 
$GDDAT,$BDDAT =CHECK FOR CORRECT FLAG 
4$ ‘SKIP IF OK 
44 *PGM BOOT DID NOT SET CORRECT FLAG 
PC ,DMPREG 
#DCFE,aACR :SELECT DCF 
aDCF ,DISPLY TREAD DCF 
S$ :SKIP IF 0 
44 *PGM BOOT SET A DCF CONDITION 
PC, DMPREG 
#EXCE,@ACR ;SELECT EXC 
@EXC,DISPLY READ EXC 
6$ = SKIP IF 0 
44 :PGM BOOT SET AN EXC CONDITION 
PC,DMPREG - 
#STFE,@ACR : SELECT STF 
aSTF,DISPLY READ STF 
7$ SSKIP IF 0 
44 :PGM BOOT SET AN STF CONDITION 
PC ,DMPREG 
#PGFE,@ACR ZSELECT PGF 
PB; TAB(4) ,$GDDAT:FETCH FLAG BIT 
$GDDAT , aPGF *CLEAR FLAG 
$GDDAT ‘FLIP GDDAT 
#170377,$GDDAT =MASK OUT JUNK 
#PGFE,@ACR [SELECT PGF 
aPGF , $8DDAT SREAD PGF 
001124 $NDAT SBDDAT :CHE CK FLAG FOR 0 
: Kk 


RISK 
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A 99 seit M taney 11:06 PAGE by 1 
30-NOV=78 10:58 CHECK A LEGAL PGM BOOT REQUEST FOR PROPER OPERATION 


0542 104044 ERROR+ 44 sWRITING A 1 TO PGF FLAG DID NOT 
0544 0046737 022234 JSR PC ,DMPREG 


CLEAR IT 
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i ‘, abect TIMER INTERRUPT REQUEST AND CHECK FOR: 


BIT TO SET 
“DCF REGISTER TO STAY RESET 
EXC REGISTER TO STAY RESET 
:PGF REGISTER TO STAY RESET 
:SIF BIT TO BE CLEARED BY WRITING A 1 TO IT 


BOIS UIOIISIOIUIDIDIOIIISISISIOIOIIISIDIIOIDIOIUIOIDIOIUIUIOIOIIOIUIOIDIIUITIDIIUIDITIDI IIIS I 
“TEST 35 CHECK A LEGAL ST INTR REQUEST FOR PROPER OPERATION 
BI IOUS IOISIDIOISIOIIISIOIIOIISIIOISIISIOIIOI IOUS IOI IDS It 
010550 000004 1$135: 

022204 J PC,SSTMNT sENABLE MAINT LOOPBACK 

000000 013006 TEE ,@ACR ;SELECT. PGTE 

020526 PGITAB(4) ,aPGTE :LOAD PIE 

000003 #PTP+GO,aPGCS  : TRANSMIT 

000001 #PGCSE ,aACR ZSELECT PGCS 

012764 aPGCS , $BDDAT :R PGCS 

004000 001126 .— . SBDDAT : CHECK FOR RDY 


020516 001124 MOV SIDTAB(4), SGDDAT: LOAD EXPECTED PGCS 
44 SETTING PGCS GO DID NOT CLEAR RDY 
022234 PC ,DMPREG 
: RO : INITIALIZE TIMER 
000001 (12722 : #PGCSE ,a@ACR SELECT PGCS 
Bae es 001726 aPGCS,$BDDAT READ PGCS 


001126 #PRDY , $BDDAT CHECK FOR RDY 
3$ SKIP IF SET 
: | 


388 


TIMER =0? 


$ STRY AGAIN IF NO 
020516 SIDTAB(4) ,$GDDAT:LOAD EXPECTED WITH 
004000 DD APRDY,$GDDAT  :SID + RDY 

44 *PGCS RDY DID NOT SET ON A PGM PI 
022234 PC ,DMPREG 
000006 : #STFE,@ACR :SELECT TF 
012650 aSTF .$BDDAT TREAD STF 
000017 #17,$GDDAT ‘FETCH EXPECTED FLAG BITS 
001124 SCDBAT , SBDDAT : CHECK FOR CORRECT FLAG 


IP IF OK 
:ST INTR DID NOT SET CORRECT FLAG 
022234 
000007 ; SELECT DCF 
012610 MO aDCF ,DISPLY [READ DCF 
5$ SKIP IF OQ 
44 3ST INTR SET A DCF CONDITION 
022234 JSR PC ,DMPREG 
000010 012564 : MOV #EXCE,@ACR SELECT EXC 
012564 023610 MOV aE XC, -DISPLY :READ is 
4G 7ST INTR SET AN EXC CONDITION 
022234 PC ,DMPREG 
0 S 012540 : #PGFE ,@ACR sweets PGF 
012540 023610 MO @PGF ,DISPLY READ PGF 
E (% =SKIP IF CLEAR 
ERROR+ 44 751 INTR SET A PGF CONDITION 
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1038 0110466 004737 022234 JSR PC ,DMPREG 
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30-NOV-78 10:58 135 CHECK A LEGAL ST INTR REQUEST FOR PROPER OPERATION SEQ 0050 


000017 : #17,RC :SET ALL 4 LINES 
020526 STITAB(4),RO = CLEAR LINE UNDER TEST 
900006 012504 ASTFE,@ACR ‘SELECT STF 
012504 RO, astF [CLEAR ALL SIFS EXCEPT LINE UNDER TEST 
000006 012472 #STFE,@ACR :SELECT STF 

012472 202 aSTF,.$TMP2 [READ STF 

000001 #PGCSE ,@ACR “SELECT PGCS 

012456 02 @PGCS,DISPLY “READ PGCS 

000010 023610 81 #1P.DISPLY 


vi 
a 


“8 oe dd od ww) J — 


kd a a kd od oo dd 2 I 


RRERE FE 
RE 


Fwn-o 2 
SNEKSN 


Ww 
Nw 


022234 
:SAVE OLD 
‘PI INFORMATION 
012424 #9$ alllv ‘LOAD NEW PI VECTOR 
012420 #340,a111P : LOAD NEW INT. LEVEL 


sALL 


000340 
177776 
TALL 


000340 177776 #340,PS LOCKOUT PI 

10$ :SKIP OVER ERROR 

FIX STACK 

4G STF PI WITH IE=0 
022234 PC ,DMPREG 
011260 ; #11$,al11V ;LOAD NEW PI VECTOR 
000001 APGCSE ,@ACR GCS 
000004 ‘ #1E,aPGCS 
177776 PS 
000340 MO are 


022234 PC ,DMPREG 
12$ 


NONIN SS SS Ss Ss 41 O 
OONNQOMWS & 


RRYSVS 
BRRSUKR 


Nm 
S 
N 


OUT PI 
sNO STF PI WITH IE=1 


:SKIP NEXT TEST 
FIX STACK 
RESTORE 


RSE 


01231 : (SP)+, a11IV 
012312 (SP)+-allIP [OLD PI INFO 
000006 #STFE.aACR SSELECT STF 
SIF TAB(4) ,SGDDAT:FETCH FLAG BIT 
$GDDAT ,aSTF =CLEAR FLAG 
$GDDAT [CLEAR EXPECTED 
ASTFE @ACR [SELECT STF 
012244 asSTF .$BDDAT ‘READ STF 
14$ ‘SKIP IF Ok 
44 SWRITING A 1 TO STF FLAG DID NOT 
022234 PC, DMPREG 
SCLEAR IT 
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1087 ; 1SSUE_A SANITY TIMER BOOT REQUEST AND CHECK FOR: 
1088 ;RDY TO SET 

1089 ; SBF BIT TO SET 

1090 ;DCF REGISTER TO STAY RESET 

243 EXC REGISTER TO STAY RESET 


1093 RRR EERE EERE REE REE 


(3) S*TEST 36 CHECK A LEGAL ST BOOT REQUEST FOR PROPER OPERATION 


(3) SC ARR ERREREREARERREERE AEE ER ER EREREREERRRREEREREREREERE EERE 


(2) TST36: 
1094 PC,SSTMNT sENABLE MAINT LOOPBACK 
1095 #PGTEE,@ACR sSELECT PGTE 
1096 PGBTAB(G) ,@PGTE ;LOAD PIB 
#PTP+GO,aPGCS >; TRANSMIT 
s INITIALIZE TIMER 


RO 
APGCSE ,@ACR ;SELECT PGCS 
aPGCS ,$BDDAT READ PGCS 

“pytetraeeratis CHECK FOR RDY 


SKIP IF SET 
RO ; TIMER =0? 


2s sTRY AGAI 

SIDTAB(4) ,SGDDAT;LOAD EXPECTED WITH 

#PRDY , SGDDAT ;SID + RDY 

44 sPGCS RDY DID NOT SET ON A ST BOOT 
PC ,DMPREG 


: #STFE,@ACR ZSELECT STF 
012114 aSTF ,$BDDAT TREAD STF 
007400 #7400,$GDDAT §:FETCH EXPECTED FLAG BITS 
001124 SGDDAT,$BDDAT :CHECK FOR CORRECT FLAG 
4$ :SKIP IF OK 
44 ‘ST BOOT DID NOT SET CORRECT FLAG 
022234 < PC, DMPREG 
000607 : #DCFE,@ACR :SELECT DCF 
012054 MO abCF ,DISPLY “READ DCF 
; 5$ :SKIP IF 0 
44 :ST BOOT SET A DCF CONDITION 
022334 PC, DMPREG 
060010 «S$: #EXCE,@ACR ZSELECT EXC 
012030 : aeXC, BISPLY TREAD EXC 
6$ :SKIP IF O 
44 :ST BOOT SET AN EXC CONDITION 
022234 PC ,DMPREG 
#PGFE,@ACR ZSELECT PGF 
a@PGF ,DISPLY TREAD PGF 
7$ “SKIP IF 0 
44 *ST BOOT SET A PGF CONDITION 
PC ,DMPREG 
#STFE,@ACR :SELECT STF 
SBi TAB(4) ,SGDDAT:FETCH FLAG BIT 
$GDDAT .aStF “CLEAR FLAG 
$GDDAT 
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S CHECK FLAG FOR 0 
; SKIP IF OK 
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CHECK A LEGAL ST BOOT REQUEST FOR PROPER OPERATION 


ERROR+ 44 ;WRITING A 1 TO STF FLAG DID NOT 
JSR PC ,DMPREG 
;CLEAR IT 


SEQ 0052 


MAINDEC=11=CRIIA MACY11 30A(1052) _30-NOV-78 11:06 PAGE 
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1145 ; ISSUE A PROGRAM INTERRUPT REQUEST WITH IMSK BIT =1 AND CHECK: 

1146 :PIF BIT TO STAY O 

1147 ;UI BIT TO SET 

Bes | ;UI BIT TO CLEAR WHEN WRITTEN TO A 1 

1150 DI III III IO III III IOI IOI IOIIOIUIIOIOIOIUIIOIO TOTTI TOO TOR TOK tok 
(3) SRTEST 37 CHECK THE IMSK BIT FOR PROPER OPERATION 
(3) se He ie fe Me Be te We Be Be We ie i ie i A ie He ie ie Se ie ie ie TT TTT TOTTI TO hth hk 
(2) 011672 000004 +8137: SCOPE 

1151 011674 004737 022042 JSR PC,SETMNT ENABLE MAINT. LOOP 

1152 011700 012777 Q00000 011664 MOV APGTEE ,@ACR sSELECT PGTE 

1153 011706 016477 020526 011662 MOV PGITAB(4) ,APGTE ; PIB 

1154 011714 012777 000004 011650 MOV #IMSKE ,@ACR :SELECT IMSK 

1155 011722 016477 020526 011646 MOV IMITAB(4) ,aIMSK; INHIBIT LINE 

1156 011730 012777 000001 011634 MOV APGCSE ,@ACR SELECT PGCS 

1157 011736 012777 000001 011632 MOV #G0,aPGCS : TRANSMIT 

1158 011744 012777 000001 011620 ‘5 MOV APGCSE ,@ACR ;SELECT PGCS 

1159 011752 032777 004000 011616 BIT #PRDY ,@PGCS :CH ECK FOR 

1160 011760 00177 BEQ 1$ READY 

1161 011762 012777 011602 MOV A#PGFE ,@ACR ZSELECT PGF 

1162 011770 017737 011602 001126 MOV @PGF , $BDDAT [READ PGF 

1163 011776 012737 17 001124 MOV #17, $GDDAT sFETCH EXPECTED FLAGS 

1164 01 6437 020526 001124 BIC PGITAB(4), SGDDAT:MINUS EXPECTED FLAG 

1165 012012 023737 001124 001126 CMP SGDDAT , $BDDAT : CHECK FLAG FOR 0 

1166 012020 140 BEQ 2$ :SKIP IF OK 

1167 012022 104044 ERROR+ 44 :IMSK BIT DID NOT INHIBIT ITS PGF BIT 

1168 012024 004737 022234 JSR PC ,DMPREG 

1169 012030 016437 020536 001124 2%: MOV UVITAB(4), $GDDAT;LOAD EXPECTED UI BIT 

1170 012036 012777 000010 011526 MOV MEXCE ,@ACR smelt EXC 

1171 012044 017737 011526 001126 MOV EXC, $BDDAT EXC 

1172 012052 023737 001124 001126 CMP SGDDAT , $BDDAT «CHECK THE UI BIT 

1173 012060 001403 BEQ 3$ : SKIP IF SET 

1174 012062 104044 ERROR+ 44 UI DID NOT SET ON A PIF WITH IMSK=1 

1175 012064 004737 022234 JSR PC ,DMPREG 

1176 012070 005037 001124 3$: CLR $GDDAT EXPECT 0 

1177 012074 012777 000010 011470 MOV MEXCE ,@ACR TSELECT EXC 

1178 012102 016477 020536 011466 MOV UVITAB(4) ,@EXC CLEAR UI BIT 

1179 012110 012777 000010 011454 MOV -@ACR sSELECT EXC 

1180 612116 017737 011454 023610 MOV @EXC,DISPLY READ EXC 

1181 012124 013737 023610 001126 MOV DISPLY,$BDDAT TEST EXC 

1182 012132 001403 BEQ 4$ SKIP IF OQ 

1183 012134 104044 ERROR+ 44 :WRITING A 1 TO UI BIT DID NOT CLEAR IT 

1184 012136 737 = 022234 , JSR PC ,DMPREG 

1185 012142 012777 000006 011422 4$: MOV ASTFE ,@ACR :SELECT STF REGISTER 

1186 012150 017737 G11422 001126 MOV @aSTF ,$BDDAT :GET AND TEST STF REGISTER 

1187 012156 001403 BEQ’ 5$ :STF SHOULD BE 0 

1188 012160 104044 ERROR+ 44 STF NOT ZERO ON A PGI WITH IMSK=1 

1189 012162 004737 022234 JSR PC ,DMPREG 

1190 012166 5$: 


§ 


5 
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; ISSUE A PROGRAM BOOT REQUEST WITH BIMSK BIT =1 AND CHECK: 
;PBF BIT TO STAY 0 
;UI BIT TO SET 


ue F 


é FERRARA EKER REE EEKEE KERR EERE KEKE 
7*TEST 40 CHECK THE IMSK BIT FOR PROPER OPERATION ON PGM BOOT 
; FRR EER EERE REE EEE ERE EE 
TST4O: 

022042 PC,SETMNT ;ENABLE MAINT. LOOP 

000: #PGTEE,@ACR sSELECT PGTE 

PGBTAB(4),aPGTE ; 


LOAD PBB 
#IMSKE ,@ACR SELECT IMSK 
BMITAB(4) ,@IMSK ; INHIBIT LINE 
A#PGCSE ,@ACR 


P SELECT PGCS 
#GO,aPGCS ; TRANSMIT 
APGCSE ,@ACR ;SELECT PGCS 
oe yd w FOR 


;READ 

SELECT PGF 

sREAD PGF 

FETCH EXPECTED FLAGS 


PSBTAB(4) ,SGDDAT;MINUS EXPECTED FLAG 
amt 4435 FLAG FOR 0 


SKIP IF OK 

4G :IMSK BIT DID NOT INHIBIT ITS PGF BIT 
022234 PC ,DMPREG 
020536 : UVITAB(4) ,SGDDAT;LOAD EXPECTED UI BIT 
000010 MEXCE ,@ACR SELECT EXC 
011232 @EXC ,SBDDAT sREAD EXC 
001124 00 $GDDAT,$BDDAT  ;CHECK THE UI BIT 

3$ SKIP IF SET 
44 :UI DID NOT SET ON A PIF WITH IMSK=1 
022234 PC ,DMPREG 
001124 : $GDDAT sEXPECT STF TO BE 0 
000006 ASTFE,@ACR SELECT STF 
011174 aSTF ,$BDDAT GET AND TEST STF 

4$ :1T SHOULD BE 0 


eS SS al 
QOGruurg op 


Saceurancs 
oOo BOOCOCCOOCO 
3 SS SS 
== WN NWNWNWS 
MMNMND MNWSEOMWAwn 
AREAD WOLAOMESAO 


S3S3s 
ooo _ med ed td ed od 
and eed eee eed eoedd 


MOM NNSNNoNY 
eh ee ie 
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1 
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NM —OODNAUSWIH-O 
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44 
022234 PC ,DMPREG 
414 
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A SANITY TIMER INTERRUPT REQUEST WITH IMSK BIT =1 AND CHECK: 
coe ath oh ekt™ YO 

: T TO SET 

;UI BIT TO CLEAR WHEN WRITTEN TO A 1 


REISSUE DIOIIIIISIUISISIIIIISIDISIIIIIOIIIIDIOIUIUIOIDIOIUIIIIIIUIIDIIUOIIOIIOIIIOII IOI ot 
SR TEST 41 CHECK THE IMSK BIT FOR PROPER OPERATION ON ST INTR 
BROS OIRIIIOIIOIUISISISIIOIISIIOIIIOIOUIDIIIOISIDIOIIIIOIIUIUIIIIIUINIIID Iti tot tit 
012414 $8141: 
Reeeee , JSR PC,SSTMNT ;ENABLE MAINT. LOOP 


#PGTEE ,aACR poets PGTE 
PGITAB(4) ,aPGTE :LOAD PIB 

#IMSKE , AACR :SELECT IMSK 
IMITAB(4) ,IMSK; INHIBIT LINE 
#PGCSE ,@ACR SELECT PGCS 
#PTP+GO,a@PGCS ; TRANSMIT 


#PGCSE ,@ACR SSELECT PGCS 
#PRDY ,@PGCS ZCHECK FOR 
1$ sREADY 


MSTFE,@ACR >SELECT ” 
asiF, SBDDAT :R STF 

#17, $GDDAT SFETCH EXPECTED FLAGS 
PGITAB(4) ,SGDDAT:MINUS EXPECTED FLAG 
SGDDAT,$BDDAT CHECK FLAG FOR 0 

2$ SKIP IF Ok 


4& :IMSK BIT DID NOT INHIBIT ITS SIF BIT 


PC,DMPREG 
UVITAB(4) , S$GDDAT ; LOAD a lo UI BIT 
EgQAc SRENB EME EXC 


AD EXC 
CHECK THE UI BIT 
:SKIP IF SET 
[UI DID NOT SET ON A SIF WITH IMSK=1 


sEXPECT 0 
XCE ,aAC sSELECT EXC 
UVITAB(4) ,@EXC CLEAR UI BIT 
HEXCE ,@ACR ; SELECT EXC 
@EXC ,DISPLY EXC 
023610 001126 MO DISPLY,$BDDAT TEST EXC 
4$ :SKIP IF 0 
aS WRITING A 1 TO UI BIT DID NOT CLEAR IT 
022234 PC ,DMPREG 
0 010700 : #PGFE ,dACR sSELECT PGF REGIPGER 
010700 001126 @PGF , $BDDAT GET AND i iy" STF REGISTER 
5$ PGF SHOULD BE 0 
:PGF NOT ZERO ON A STI WITH IMSK=1 


2S 


CR 


So Oo COOOCOCOO 
© — ee 
— tt ot = — s_ — YY Ys YY 
_— = ED oo HS SS Se 
MNMNMNDA NN RRS S 
ALEAO LFOOMWLAO ON 


001124 


022234 


44 
0127 022234 JS PC ,DMPREG 
012710 : 
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: ISSUE A SANITY TIMER BOOT REQUEST WITH BIMSK BIT =1 AND CHECK: 
;SBF BIT TO STAY 0 
;UI BIT TO SET 


DAO IOISUISIISIOI IIIS SIOIDIDIIISIISIDIOIDISIOIDIOIOISIIIOIOI IOUT IID OID II 
i*TEST 42 CHECK THE IMSK BIT FOR PROPER OPERATION ON ST BOOT 
DDRII ISIS IIOISIIOIDIIIOISIIISIOIOIIISIIIOISIICISIOIDIDIOIOIIOIOI IOI II IIIT IR TI TIE 
TST42: 

022204 J PC,SSTMNT sENABLE MAINT. LOOP 

000000 ;SELECT PGTE 

;LOAD PBB 


IMSKE ,@ACR SELECT IMSK 
BMITAB(4) ,@IMSK ; INHIBIT LINE 
SE ,@ACR SELECT PGCS 
; TRANSMIT 
sSELECT PGCS 
:CHECK FOR 
READY 


SSELECT STF 
“R TF 


sREAD S 
FETCH EXPECTED FLAGS 
sMINUS EXPECTED FLAG 
$GDDAT,SBDDAT  ;CHECK FLAG FOR 0 
2s ;SKIP IF 


: SK OK 
44 :IMSK BIT DID NOT INHIBIT ITS SBF BIT 
PC,DMPREG 
UVITAB(4) ,SGDDAT;LOAD EXPECTED UI BIT 
XCE, sSELECT Exc 
sREAD EXC 
2; THE UI BIT 
022234 ;UI DID NOT SET ON A SBF WITH IMSK=1 


001124 : zsEXPECT PGF TO BE 0 
000005 010452 #PGFE,@ACR ;SELECT PGF 
010452 601126 MO @GF , SBDDAT GET AND TEST PGF 

re ;1T SHOULD BE 0 


104044 
004737 022234 PC ,DMPREG 
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; TEST OPERATION OF THE TIMER LOGIC 


DDRII IIISIIDIOIIIIIIISISISISISIEIIIISIIIOIIIOIIIIOIIIUIUIIUIIIIDIIUDI Ett itt 
i*TEST 43 CHECK THE TIMER INTERRUPT LOGIC AND COUNT REGISTER 
DERI ISIIOIISIIIOIIIIIOUIUIIIUE EE ERE RR REE ERE htt tit 
TST43: 4 
022204 J PC,SSTMNT ;SET MAINT. LOOPBACK 
RO INIT. TIMER COUNTER 
000002 AMSTTEE ,@ACR sSELECT STTE 
020526 SIFTAB(4) ,@STTE ;ENABLE SI LINE 
000001 #ENB,aSTCS sENABLE SANITY TIMER 
000003 : AMSTCSE ,@ACR sSELECT STCS 
010374 @STCS,DISPLY zR STCS 
177410 #177410,DISPLY ;CHECK FOR TMO OR COUNT=~-1 
2$ ;SKIP_IF ANY BITS SET 
; COUNT BACKGROUND TIMER 
sKEEP COUNTING UNTIL OVERFLOW 
022234 TIMER DID NOT COUNTDOWN WHEN ENABLED 


177777 #-1,RO :SET TIME TO MAX ‘ 
023612 : SAVE TIME PERIOD CONSTANT 
RO one BY 


ft =| =—NMWW <4 
DONAUSW—OO0WOY YY NOW 


RORAROAORD 


023612 
000003 010314 


010314 023610 @STCS,DISPLY ce 
001126 $BDDAT INIT. DISPLAY 


023611 001126 DISPLY+1,$BDDAT ;FETCH COUNT 
000377 001124 #377 ,$GDDAT ;LOAD EXPECTED 
001124 001126 oe nee gy — TIMER = -1 


SKIP _IF OK 

44 TIMER DID NOT COUNT FROM 0 TO -1 
022234 PC ,DMPREG 
000011 : ATMO+ENB,SGDDAT ;LOAD EXPECTED 
023610 DISPLY,$BDDAT ;LOAD ACTUAL 
007124 MP $GDDAT,$BDDAT ;CHECK FOR TMO 

4$ SKIP IF SET 

44 :TMO DID NOT SET ON TIMER UNDERFLOW 
022234 PC ,DMPREG 
000001 : A#PGCSE ,@ACR SELECT PGCS 
010210 @PGCS,DISPLY sREA . 
000010 + sects ; 


PER EK PRR RK AMI Aaa 


00 NAME WN =0 OONAUEWWR OO” 


1 
1 
1 
1 
} 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
, 
1 
1 
1 
1 
1 


NNN ANNAN WWN 
PDAS 


on 
022234 !SR PC ,DMPREG 
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56 


[RRR RRR RRR EER ERE REE R EERE ERE ERE ERR ROE 
:STEST 44 CHECK THE TIMER BOOT LOGIC AND COUNT REGISTER 
Fiediealaiabalebadebelahalaloielaleteletebehaieteteielotaleleioteieleisieiotaioieleioiaielaieieiaieleiaioieioloielolialeiale 

18144: . 

PC,SSTMNT ;SET MAINT. LOOPBACK 

#STTEE AACR sSELECT STTE 

SBFTAB(4) ,aSTTE : 

— asTcs ; 


ASTCSE, @ACR “SELECT STCS 
@STCS,DISPLY | :READ STCS 
#177410,DISPLY CHECK FOR TMO OR COUNT==1 
2$ ‘SKIP IF ANY BITS SET 
= COUNT BACKGROUND TIMER 
‘KEEP COUNTING UNTIL OVERFLOW 
:TIMER DID NOT COUNTDOWN WHEN ENABLED 


CDMPR EG 
#STCSE ,@ACR see 


023610 aSTCS,DISPLY 
SADDAT TINIT. DISPLAY 
001126 a ae oa 3 meal ;FETCH COUNT 
001724 #377,$ [LOAD EXPECTED 
001126 Sc0DAT. oSBODAT yg FOR TIMER = 


IF OK 
a4 TIMER DID NOT COUNT FROM 0 TO -1 


PC ,DMPREG 
001124 : ATMO+ENB,SGDDAT ;LOAD EXPECTED 
DISPLY,$BDDAT ;LOAD ACTUAL 
001124 $GDDAT,$BDDAT ;CHECK FOR TMO 
4$ SKIP IF SET 
44 :TMO DID NOT SET ON TIMER UNDERFLOW 
022234 PC ,DMPREG 
000601 007762 : A#PGCSE ,@ACR sSELECT PGCS 
007762 623610 MO @PGCS,DISPLY READ PGCS 
000010 023610 #IP,DISPLY TEST FOR IP 
5$ :SKIP IF CLR 
;SBF SET IP 


SESS EASE CAS 
eegeeeee 

SRR NERY 

RRESKSVESE 


NNNSY 
Wr 


022234 


WIWWNWWWNWNWNWWNAW 
YNNNN 
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SEREPERSSS 
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44 
022234 : PC ,DMPREG 
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001312 
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001204 


022234 


007572 
007574 
001124 


022234 
001204 


001204 


001124 


001126 
001126 


aaa) 


H 
11:06 PAGE 44 
CHECK THE COUNTER FOR PROPER DECREMENTATION 


FERRER EERE EEE EERE EREREERREREEEREREREER REE 


CHECK THE COUNTER FOR PROPER DECREMENTATION 


pga atta aaa al ian a aati 


TATEST 45 


18145: 


1$: 


#1, STMP3 
$BDDAT 
#1$,$LPERR 
PC, SSTMNT 
#STTEE ,@ACR 
#ENB, 

aACR 
$TMP3,@STCSH 
$TMP3,$GDDAT 
$GDDAT 

TIMPER ,RO 

RO 

@ACR 

@STCSH, $BDDAT 
$TMP3 ,$BDDAT 
3$ 

RO 
2$ 
a 
PC ,DMPREG 
4$ 

aACR 


@STCSH, $BDDAT 
5 aneet mmems 


: INIT THE COUNT VALUE 
: ZERO THE gk BYTE OF $BDDAT 


SIF TAB(4) ,aSTTE >SET 
asTcs 


; SELECT STCS 
;LOAD COUNT AND S 
GET © pene COUNT VALUE 


MINUS 
GET BASIC TIME CONSTANT 


:SELECT STCS 
READ COUNT VALUE 
SCHECK FOR CHANGE 
;SKIP IF CHANGED 
:DEFLATE CCUNTER 
> CHECK AGAIN 
TIMER DID NOT DECREMENT 


:SKIP NEXT CHECK 


; MER 
CHECK FOR CORRECT DECREMENTAT ION 


> SK 


KIP IF Ok 
[COUNT REGISTER DID NOT DECREMENT CORRECTLY 


;BUMP TEST VALUE 
:D0 1 = 377 


SEQ 0059 





014032 


— et od od ot 
n 
Nm 
— 
oO 


14240 


000005 
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022042 


001200 
177775 


022234 
001126 


022234 


001201 


007442 


007440 


001124 


007402 


001124 


001126 
001726 


001124 


} 
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; ISSUE _A_PROGRAM~GENERATED REQUEST WITH INTERRUPT MASKS CLEAR WITH ALL COMBINATIONS OF 
; TRANSMIT — MAINTENANCE TYPE, AND MAINTENANCE FRAMING 


AND CHECK F 

CORRECT CONTENTS OF PGCS (RDY, IP, SELF=-ID) 
: mt BITS IN THE EXC REGISTER TO BE SET 
: ALL _OTHER FLAGS TO BE CLEAR (PGF, STF, DCF, UIF) 

SELECTED RTE FLAG CAN BE CLEARED 

w=5 
DUR UISCIEIIOIUISI IOSD IOUIUIIIUUII IO IIR Rh tht 
T*TEST 46 CHECK OPERATION OF PARITY & FRAMING ERRORS, IM(3:0)=0 
SEE IIOIISIIIIIIOIIOIII ISI I IOIIO IIS III III IIS I EI it 
1S146: SCOPE 

JSR PC,SETMNT ;ENABLE MAINTENANCE LOOPBACK 

MOV #1$,$LPERR 7FIX START OF LOOP 

MOV ADCFE,@ACR 

MOV @DCF , SNAPO ;SAVE IMAGE OF DCF REGISTER 

CLR RO INIT FRAME, TYPE, PGTE DATA SETUP 
1$: MOV RO,$7MP1 

JSR PC ,PARCAL ; CALCULATE PARITY OF DATA 

MOVB $TMP1,$TMP1+1 

RORB $TMP1+1 sPOSITION DATA 


RORB $TMP1+1 
RORB $TMP1+1 
RORB $TMP1+1 
MOV #PGTEE ,@ACR 


MOV $TMP1 ,@PGTE ;LOAD TRANSMIT ENABLES 
ASL R1 GET PARITY 

2$: BIC #177775,R1 
MOV SIDTAR(4), $GDDAT GET SELFRID 
BIS R1,$GDDAT 
BIS #1-R1 
MOV #PGCSE ,@ACR 
MOV R1,aPGCS LOAD PARITY, SET GO 
CLR R1 
BIS #PRDY+IP,$GDDAT 

3$: DECB aACR 


MOV @aPGCS ,$BDDAT 
BIT ee sWAIT FOR READY 


BNE 
a3! a ;BUT DON'T WAIT TOO LONG 
ERROR+ 44 
JSR PC ,DMPREG 
4$: “MP SADDAT ,$GDDAT IS PGCS Ok? 
BEQ 5$ 
ERROR+ 44 


JSR PC ,DMPRE G 


J 5 
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012737 001124 : A ye GET EXPECTED RTE FLAGS 
GET EXC REGISTER 


SN 


44 
PC ,,DMPREG 
aACR 
PIF TAB(4) , SGDDAT 
007240 SGDDAT ,@EXC ;CLEAR FLAG 
OM SGDDAT sMAKE FLAG DATA 
001124 BI cco, ene 


0601126 @EXC,$BDDAT 
001126 001124 alma 


FYB IAS 


S 
sy “| WIWWWWNANWWNNG 
on 


ns 
022234 PC ,DMPREG 
: $GDDAT 
007160 #PGFE ,@ACR 
001126 a nee PGF SHOULD BE 0 


44 
022234 S PC ,DMPREG 
007142 001126 . @aSTF ,$BDDAT GET STF 
i STF SHOULD BE 0 


022234 PC ,DMPREG 
001124 : SNAPO , SGDDAT GET EXPECTED DATA FOR DCF 
001126 aDcF , $BDDAT :GET DCF REGISTER 
001124 rn ene CHECK THAT THERE IS NO CHANGE 


4a 
022234 _ 


000015 MO #MTCE,aACR ‘POINT TO 
#MTYP+MFRM,aMTC =CLEAR TYPE AND FRAME ERROR 


iad te wr DATA 

006000 

000400 #400,RO 

004000 AMTYP ,aMTC 

001000 #1900;R0 
AMF RM, aMTC 7IF ROC9)=1, SET FRAMING ERROR 


002000 
002000 12$: RO,#2000 
13§ ZLOOP UNTIL ALL COMBOS OF DATA, TYPE & 
sFRAMING HAVE BEEN TESTED. 


sIF RO(8)=1, SET MTYPE 


MONONA A A PR Rs SO oO 
RAVI SOWNAMRWU—OSRN 


ke ak 8 a ts es 9 as ot 2 oo I 
ANAPAAA AAA AAI 


014064 1$ 
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: ISSUE _A_PROGRAM-GENERATED REQUEST WITH INTERRUPT MASKS SET WITH ALL COMBINATIONS OF 
:AND CHECK PORE MAINTENANCE TYPE, AND MAINTENANCE FRAMING 

CORRECT CONTENTS OF PGCS (RDY, SELF=ID) 

RTE BITS IN THE EXC REGISTER TO BE CLEAR 

ALL OTHER FLAGS TO BE CLEAR (PGF, STF, DCF, UIF) 


SUI ISISIEIUIOIIIIISISISIDIIOIIIISIIISISIIUIIIIIUI DER Rint tt tt kits 
SR TEST 47 CHECK OPERATION OF PARITY & FRAMING ERRORS, IM(3:0)=1 
PETTITT T ITI IIIT TTT IT ITT T ITT TTT ITT TTT TT TL TTT TTT Tee 
014560 000004 TST47: 
022042 JSR sENABLE MAINTENANCE LOOPBACK 
001110 ;FIX START OF LOOP 


; SAVE eh OF DCF REGISTER 
;POINT TO IMASK 

#17, a1MSK saeY ALL INTERRUPT MASKS 

RO INIT FRAME, TYPE, PGTE DATA SETUP 


2> 


VIII 


CR 


— et td Es Ls 
SSRN F 


WADI YIVINYI A A A UTI 


f-w 


wwe ew Whe 


BURAK 
MNMNNOT 
SNNa 
NNW 
NNN 


014624 
014626 


28s 
ey 


RO, nae 
PC,P. CALCULATE PARITY OF DATA 
SthPTn SThet +1 
$STMP1+1 sPOSITION DATA 
$TMP1+1 
$TMP1+1 
$TMP1+1 
006700 APGTEE,@ACR 
006676 ae @PGTE ;LOAD TRANSMIT ENABLES 
GET PARITY 


: 4177775.R , 
001124 S1DTAB (2) ‘ scppat 3GET SELF=ID ‘ 
RI. ,SGDDAT 


RI 
006640 #PGCSE ,@ACR 
a) ee ;LOAD PARITY, SET GO 


R 

001124 #PRDY , SGDDAT 
3$: @ACR 

001126 MO @PGCS,$BDDAT 

001126 - aie amcor WAIT FOR READY 


a ;BUT DON'T WAIT TOO LONG 


44 
022234 PC ,DMPREG 
001126 001124 : ~ allan 31S PGCS OK? 


ar 
022234 . PC,DMPREG 
000000 | : #0, $GDDAT :GET EXPECTED RTE FLAGS 
000010 #EXCE ,dACR 
0065 36 909126 OS GET EXC REGISTER 


RAARREER EERE 
M—OVDONAULWN—OO 
235559=8 
_—— _ 
SESSue 
Ww Ww 
N N 


Nw 


ABADBRAMMNIN 
WO OONO 


Se 


OO 


SNS SNS 
BISARANSVSSSHLE 
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: 
; 
1 
1 
1 
1 
1 
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5 
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; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
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PAANAANAADIASIAY 


022234 a? 
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001124 7$: SGDDAT 
000005 006506 #PGFE ,@ACR 
906506 001126 MO aPGF , SBDDAT :PGF SHOULD BE 0 


aS 
022234 PC ,DMPREG 
006470 001126 ; aSTF ,SB8DDAT iGET STF 
9$ :STF SHOULD BE 0 


Bans FS 


co 
WG 


022234 C ,DMPREG 

023616 001124 98: ;GET EXPECTED DATA FOR DCF 
006444 001126 [GET DCF REGISTER 

001126 001124 «$8 ZCHECK THAT THERE IS NC CHANGE 


; 
44 
022234 /SR PC, DMPREG 
: R0 y INCREMENT TEST DATA 
000015 MO #MTCE ,@ACR ‘POINT TO MIC 
006000 #MTYP+MFRM,@MTC CLEAR TYPE AND FRAME ERROR 
000400 #400.RO 
11$ ZIF RO(8)=1, SET MTYPE 
004000 #MTYP, aMTC 
001000 : #1000,RO 
002000 FRM, aMTC :IF RO(9)=1, SET FRAMING ERROR 


:LOOP UNTIL ALL COMBOS OF DATA, TYPE & 
FRAMING HAVE BEEN TESTED. 


ee ee ee ee 
OOURAR 
NNNOQAMUUIS & SWRN eS 
RARASVEVS RUFARSRA 


woe 
SONO 


aM 
002000 : MP RQ.#2600 
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CHECK OPERATION OF PARITY & FRAMING ERRORS, IM(3:0)=1 


: TEST ALL THE PGCS ERROR BITS FOR PROPER OPERATION 


FARRER RARER REET ERE 


SRTEST 50 TEST GRJ FOR PROPER OPERATION 


SIU IOIUIIISIO ISI SISIIIOISIOIOIISIIEIIIIIOISIIIIOIIOIUIOIIISIIIOIIIOIIIOIIIIOIUIOIIIIOI I foto 
+8150: 
PC,SETMNT ;CLR IIST AND ENTER MAINT. MODE 
ACR,R1 1=ACR 


ADR Re sR2=ADR 

#PGTEE ,aR1 SSELECT PGTE 
PGITAB(4),@R2  ;LOAD PGTE WITH ENABLE 
#G0,aR2 ; TRANSMIT 


>SELECT PGCS 
aR2 SET GO AGAIN 
SIDTAB(4) ,$GDDAT: LOAD - taleateoe 
#ERR+GRJ+PRDY+IP, $GDDAT 


~~ 


022042 


AARAAAAOKAAA 
ODBNAUSWR— 


020516 
144010 


000001 
001126 
004000 001126 
001126 


— 2 st SY YS SY YH I 


& 


2, $B 
#PRDY, . SBDDAT . 
001124 ew a 


$GDDAT , SBDDAT 
2s ; SKIP OK 
fey ;ERR,GRJ, OR IP DID NOT SET ON 


022234 PC ,DMPREG 
A_GRJ_ERROR 


000004 
177776 
000340 
022234 
006146 
006144 
100000 
140010 
001126 


177776 


#PGFE ,aR1 
#17 


ries aR 
E aR 


#340,PS 
44 

PC ,DMPREG 
4$ 


SP) +, all 
(SP)+,aI1 
aR} 

#ERR 


IV 
IP 


@R2 , $BDDAT 


-@R2 
#ERR+GRJ+1P, $GDDAT 
aR} 


SELECT PGF 


:PI D 
SELECT PGCS 
TENABLE PI 


TALLOW Pi 
STALL 
;LOCKOUT PI 
:NO PI ON ERR WITH IE=1 


s SKIP 

sFIX STACK 
sRESTORE OLD 
3PI rg 
;SELECT PGCS 

;CLEAR ERR BY WRITING 7 TO IT 


SELECT PGCS 
TREAD PGCS 


001124 $GDDAT , $BDDAT : CHECK STATUS 
5$ SKIP IF OK 
46 ‘UR ITING A ONE TO ERR DID NOT 


015474 PC ,DMPREG 
:CLEAR ERR,GRJ, AND IP 


015500 


022234 
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MOR RERRRERESASLSLASLELERE SELES SRS S RRR R RASA SERRA RRR RRR RRR RS DED OOD 


T*TEST 51 TEST PG RMR FOR PROPER OPERATION 


SE RRRARRARARARARARE ARE EREERAERERRAERRERARAREERERRRRRERERERRRRE REE 


TSTS1: 
PC,SETMNT ;CLR I]ST AND ENTER MAINT. MODE 
ACR,R1 ;R1=ACR 


3 ;R2=ADR 
APGTEE,aR1 sSELECT PGTE 
PGI TAB(4) ,aR2 ;LOAD PGTE WITH ENABLE 
#GO0,aR2 ; TRANSMIT 
#PGTEE.aR1 SELECT PGTE 
aR2 sACCESS PGTE AGAIN 
001124 SIDTAB(4) ,SGDDAT;LOAD EXPECTED 
001124 #ERR+2GMR+PRDY: IP, SGDDAT 
SSELECT PGCS 
;READ PGCS 
001126 sTEST FOR RDY 
1$ ;LOOP UNTIL SET 
001126 $GDDAT , S$BDDAT ;CHECK STATUS 
2$ :SKIP IF OK 
44 ;ERR,PGYR, OR IP DID NOT SET ON 
PC ,DMPREG 


;A_PGMR ERROR 
#PGFE ,aR1 ; SELECT PGF 
7,@R2 CLEAR PGF 
;SELECT PGCS 
MERR ,aR2 ;CLEAR ERR BY WRITING 1 TO IT 
#ERR+PGMR+ IP, $GDDAT 
#PGCSE ,aR1 :SELECT PGCS 
@R2 , SBDDAT READ PGCS 
SGDDAT,$BDDAT ;CHECK STATUS 
5$ SKIP IF OK 
4s :WRITING A ONE TO ERR DID NOT 


PC ,OMPREG 
CLEAR ERR,PGMR, AND IP 


—DODWVOOCCOCOCO0O 
SSSlSecssss 
NNNIONN 


Se es 


0 
0 
0 
0 
04 


ooo 
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FERRARA REE EERE RE EEEERERE KERR REEREEREEEERERERRERERRE KEE 


TRTEST 52 TEST ST RMR FOR PROPER OPERATION 


SRE REE EERE ERE RRR EERE ER 


18152: 


38 


o 
vi 
abat 
ahd 


Oo 
MWWO 
Vveuerew 


aR 


PC,SSTMNT :CLR _IIST AND ENTER MAINT. MODE 
ACR,R1 :R1=ACR 
ADR,R ;R2=ADR 
#STTEE,aR1 ;SELECT STTE 

STITAB(4) ,aR2 = LOAD mi WITH ENABLE 

#ENB ,aR2 TIMER 


TAR 

SIDTAB(4) . $GDDAT: : LOAD T EXPECTED 

#ERR+STMR+PRDY+ IP, $GDDAT 

ASTCSE ,aR1 ;SELECT STCS 

#TMO,aR2 :TEST FOR TMO 

1 ; LOOP git SET 

ASTTEE,@R1 ; SELECT TTE 

aR2 ;ACCESS STE AGAIN 

#PGCSE ,aR1 ;SELECT PGCS 

@R2 , $BDDAT ;READ PGCS 
001124 SGDDAT,$BDDAT CHECK STATUS 

2$ ;SKIP_ IF OK 

4G ZERR,STMR, OR IP DID NOT SET ON 
022234 PC ,DMPREG 

:A STMR ERROR 


100000 : #100000,-(SP) ;PUSH VALUE 
: i ae 7 STALL 


(SP) + 
ASTFE,@R1 SELECT STF 
#17 ; CLEAR 


.@R * 

#PGCSE ,aR1 SELECT P 

HERR, aR2 ; CLEAR ERR By WRITING 1 TO IT 
001124 #ERR+STMR+ IP, SGDDAT 

#PGCSE ,aR1 oy PGCS 

AR2, $BDDAT READ PGCS 
001126 $GDDAT, SBDDAT SCHECK STATUS 

5$ SKIP IF Ok 

44 ;WRITING A ONE TO ERR DID NOT 


022234 JS PC,DMPREG 
;CLEAR ERR,STMR, AND IP 
16070 : 
16070 PC > KIT 


SNNOAAAAOA OA AA 
SSSSQSSF 


RSAPRRRERESERER ERC 


NNNNNNNN NNN NN ONS 
MEW =O OONAOUSWN-—O 


MMM 


N 
NIN 
ONO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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ISSUE A Neem ta lok Coat o> rae WITH INTERRUPT MASKS CLEAR WITH ALL COMBINATIONS OF 
; TRANSMIT ENABLES AND CHECK FOR: 

: CORRECT CONTENTS OF PGCS (RDY, IP, SELF=-ID) 

: RTE BITS IN THE EXC REGISTER TO BE CLEAR 

3 ALL OTHER FLAGS TO BE CLEAR ( STF, DCF, UIF) 


PGONL : 


SERRE REAR EEERERREERRREE EEE REREREEERAEREEEKEEKEEEEEEREEREKEEKEK 
;*TEST 53 CHECK OPERATION OF PG REQUESTS IN NORMAL MODE 
FREER EERE KEKE EERE REE REE REE REE 
+8153: 
100000 005470 #CLR,@ACR ;CLEAR THE IIS 
023660 CONF 1G TARE WE PREVENTED FROM ONLINE? (CONFIG=0) 
.+6 SKIP IF NOT 
016716 i0$ :1F YES. GO TO NEXT TEST. 


RO 3s 
100000 005446 55$: eo 


— 8 es 
NNWNA AA NNNNNSNSSS 
SE ENWWE WW 


XN 
Mon 
SRRARS 


BN 55$ 
016154 001110 #1$,$LPERR FIX START OF LOOP 
000007 005426 AMDCFE ,@ACR 
023616 @DCF , SNAPO sSAVE IMAGE OF DCF REGISTER 
RO s INIT PGTE DATA SETUP 
#CLR,@ACR E IIST 


S T PGF 

CLEAR ALL PGF FLAGS 
CLEAR ALL STF FLAGS 
CLR BRK 


5352 >SELECT MTC 
005350 SBT, aMT :DISABLE BOOTS 


000003 SHOULD WE PREVENT XMIT OF ALL CODES? 
11$ :NO_ IF NOT CONFIG #3. 
020526 PGITAB(4) ,R1 7YES -- GET MASK FOR SELF. 
R1,-(SP) >SAVE_INTR ENB 
+ :SHIFT 4X TO BOOT ENB 
R1 
R1 
23 +S :GET INTR ENB MASK 
001200 R1,$TMP1 :CLEAR BITS FOR DESTINATION OTHER THAN SELF. 
RO,-(SP) SAVE COUNT VALUE 
001200 ! :GET ENABLE FOR PARITY are 
022214 ;CALCULATE PARITY OF DAT 


[RESTORE COUNT VALUE. 
001200 001201 
001201 POSITION DATA 
001201 


001201 


001201 $ 
000000 005232 #PGTEE ,@ACR 
001200 005230 $TMP1, aPGTE te Le ac ENABLES 


006301 R° 
016350 OM R1 FIX PAR BIT 
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016352 177775 2$: #177775 ,R1 
020516 001124 MOV SIDTAB(4) $GDDAT :GET SELF-ID 
001124 ie aa 


000001 1 
000001 005170 MO #PGCSE ,@ACR 
005170 Ri .aPoCs ;LOAD PARITY, SET GO 


004000 001124 #PRDY , $GDDAT 

020526 061200 PGITAB(4),$TMP1 ;TEST FOR PGI ENABLE 
3$ : SKIP IF CLEAR 

001124 es ;SET IP IF RELEVANT 


001126 : MO @PGCS, $BDDAT 
001126 en WAIT FOR READY 


a ;BUT DON'T WAIT TOO LONG 
44 :PRDY DID NOT SET ON A PG XFER 
022234 PC ,DMPREG 
001126 001124 : 2 ae :IS PGCS OK? 
, :PGCS STATUS ERROR ON PG XFER 
SET EXPECTED RTE FLAGS 
005052 


000010 
005052 001126 C, GET EXC REGISTER 
001124 001126 SCDDAT, . SBDDAT 


44 sEXC NOT 0 ON A PG XFER 
022234 C ,DMPREG 
020526 001200 : tat -STMP1 44 gta FGAL PGF 


SKIP 
020526 001124 PGITAB(4) ,$GDDAT:LOAD PGF 
020536 001200 : en -STMP1 +435 en PGB 


2 :SKIP I 
020536 001124 PGBTAB(4) ,$GDDAT;LOAD PGB 
004764 : APGFE ,@ACR 
001126 @aPGF , $BDDAT READ PGF 
001124 001126 aaah -SBDDAT ;CHECK PGF 


44 ;PGF ERROR ON PG XFER 
022234 JS at _ 


001124 7$: $GDDAT EXPECTED = 0 
004734 @aSTF ,$BDDAT GET STF 
8$ hs SHOULD BE 0 


44 F NO 0 ON A PG XFER 
022234 PC ,DMPREG 
: SNAPO , SGDDAT :GET EXPECTED DATA FOR DCF 
@aDcF ,$BDDAT GET DCF REGISTER 
001126 1124 Fen! Same CHECK THAT THERE IS NO CHANGE 


DCF ERROR ON A PG XFER 


; INCREMENT TEST DATA 
$ SKIP WHEN DONE 


000010 
005132 
005132 


BERR R RGR CS See Ree eeeee FS 


022234 
001124 


00 00 Co 00 Co CO 09 00 00 Co 
ah ach cea ca coh cael at cel a cl 


ees ceabaranas 


WIWNWANWPO 
RRAYLSSOBVR 


1 
1 
1 
1 
: 
. 
; 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
: 
, 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


00 00 Cd 00 Co 00 CO CO 


& 


a4 
022234 JSR 9 etelite 


1 
016712 016154 1$ 
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CRITAA.P11 30-NOV=78 10:58 
1842 016716 10$: 





LLLS 


_— 3 = 

ROSS = 

VW NRIWWG 

NM -O0OY~ yy NOUS 
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FORCE A BREAK USING THE MAINTENENCE REGISTER AND TEST 
; THE OCF REGISTER 


FRR REE RRR REE ERE ERR REE EERE ERR EERE EE 


TSTEST 54 TEST THE DCF REGISTER 
FREER ERE RRR REE RRR RRR KEKE ERE EERE REE 
016716 000004 +$154: SCOPE 
016720 012777 100000 004644 MOV #CLR,@ACR ZINIT THE IIST 
016726 012737 000010 061200 MOV #DSBT,$TMP1 :SET VALUE FOR MTC TO CLEAR BREAK. 
016734 012737 000000 001202 MOV #0, $TMP2 SET VALUE FOR CLEARING UNWANTED BITS. 
016742 . 005737 023660 TST CONF IG SSEE WHAT CONFIGURATION. 
016746 001005 °°" -- BNE 11$ iTE NOT MAINT., SKIP ON. 
016750 004737 022042 JSR PC, SETMNT :IF MAINT. ONLY, SET MAINT. LOOPBACK. 
016754 012737 000012 001200 MOV #MLEN+DSBT,$TMP1- ;NEW VALUE FOR CLEARING BRK. 
016762 016401 020536 11$: MOV BRKTAB(4) ,R1 GET BRK’ BIT FOR OWN LINE. 
016766 056401 020526 BIS DCFTAB( 4), "RI ZAND D BIT 
016772 005101 COM MAKES Bre MASK. 
016774 042701 170360 BIC #170360 R1 
017000 010137 001202 MOV R1,$TMP2 : STORE THE VALUE. 
017004 012777 000007 004560 MOV #DCFE,@ACR :SELECT DCF 
017012 017737 004560 023616 MOV @DCF , SNAPO : SAVE THE DCF CONTENTS 
017020 013737 023616 001124 MOV SNAPO,$GDDAT = COPY DCF 
017026 023727 023660 000001 CMP CONFIG, #1 SANY OTHER INTERFACES? 
017034 001003 BNE 12 
017036 012737 007400 001124 MOV #7400,$GDDAT — ; SAY EXPECTED HAS OTHER BRK BITS SET. 
017044 005737 023660 12$: TST CONF IG ‘IN MAINT. MODE? 
017050 001002 BNE 13$ 
017052 005037 001124 CLR $GDDAT YES -= ALL DCF BITS CLEAR. 
017056 046437 020536 001124 12%: BIC BRKTAB(4) , $GDDAT: ;REMOVE 1D BRK 
17064 013737 023616 001126 MOV SNAPO,$BDDAT § :READ A 
017072 023737 001124 001126 CMP SCDDAT, $BDDAT  :CHECK FOR TEGAL DCF 
017100 001403 BEQ 1$ [SKIP IF OK 
« 017102 104044 ERROR+ 44 ‘INCORRECT DCF FOR SELECTED IIST 
017104 004737 022234 JSR PC, DMPREG 
017110 012777 000015 004454 1$: MOV #MTCE,@ACR ZSELECT MTC 
017116 012777 000011 004452 MOV #DSBT+MDSD,@MTC =FORCE A BREAK 
017124 012777 000007 004440 MOV #DCFE,@ACR SSELECT DCF 
017132 017737 004440 001126 MOV @DCF , $BDDAT TREAD DCF 
017140 043737 001202 001126 BIC $TMP2,$BDDAT :CLEAR BITS NOT OUR OWN. 
017146 016437 020536 001124 MOV BRKTAB(4) ,$GDDAT:SET RELEVANT BRK BIT 
017154 056437 020526 001124 BIS DCF TAB(4) ’ $GDDAT: SET RELEVANT DCF BIT 
017162 023737 001124 001126 CMP $GDDAT,$BDDAT  =CHECK DCF 
017170 001403 BEQ 2$ :SKIP IF OK 
017172 104044 ERROR+ 44 ‘INCORRECT DCF AFTER FORCING A BREAK 
017174 006737 022234 JSR PC ,DMPREG 
017200 012777 000015 004364 2%: MOV #MTCE,@ACR :SELECT MTC 
017206 013777 001200 004362 MOV $TMP1 . aMTC :CLEAR BRK BIT 
017214 012777 000007 004350 MOV #DCFE.@ACR ZSELECT OCF 
017222 917737 004350 001126 MOV aDcF ,$BDDAT TREAD DCF 
017230 043737 001202 001126 BIC $TMP2, $BDDAT 
017236 046437 020536 001124 BIC BRKTAB(4) , $GDDAT; CLEAR OUT BRK BIT 
017244 023737 001124 001126 CMP $GDDAT,$BODAT  :CHECK DEF 
017252 001403 BEQ 3$ 'SKIP IF BRK=0 
017254 106044 ERROR+ 44 TINCORRECT DCF AFTER REMOVING THE BRK CONDITION 
017256 004737 022234 JSR Po, DMPREG 
017262 016437 020516 001124 3$: MOV SIDTAB(4) ,SGDDAT;LOAD SELF ID # 
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004010 i #IP+PRDY,$GDDAT ;ADD OTHER EXPECTED DATA 
000007 004266 E,@ACR SELECT DCF 

901202 CLEAR UNWANTED FLAGS. 
000001 7SELECT PGCS 

004252 6 ;READ PGCS 

001124 i ; CHECK 5 ta FOR IP 


SKIP IF 

:DCF FLAG DID NOT SET IP 
022234 
004232 


fay} OLD PI 
004230 sDATA 
017430 = LOAD NEW 
000340 PI DATA 
000001 #PGCSE ,@A SSELECT a 
000004 AMIE ,aPGCS sENABLE PI 
177776 PS rhe PI 
000340 MO 5 Siig sLOCKOUT PI 


“NO PI ON A DCF FLAG — 
022234 PC. DMPREG 


oo 


DS 
este 
a 
vi 


BESRoReRSSSZs Fs 


aii ak ad 8 ad Sw 


OODOOODODOODOONOO0DO 
ee ed ed od ed 
WONAUSWR-O 


7 SKIP 
iF IX STACK 
(SP)+,a@11IP oy oath OLD 
(SP)+, alIIV PI DATA 
001124 #0, $GDDAT sRELOAD EXPECTED DCF VALUE 
004114 #DCFE,@ACR : F 
004112 DCF TAB(4) , aDCF 


a@ACR 

aDCF ,SBDDAT 
$TMP2, SBDDAT 
ee eee 0 
:WRITING A 1 TO DCF FLAG DID NOT CLEAR IT 
INIT. THE INTERFACE. 

SSELECT THE IMSK REGISTER. 

SET ALL INTERRUPT MASKS, 


(. 
- LOOP TO CLEAR BREAKS. 


sCAUSE BREAK 
:SAY GOOD IS 0 
sSELECT DCF 
“GET DCF 
007400 7 CLEAR BREAKS 
001126 ! MP Se0DAr, -$GDDAT = VERIFY 


44 
07 7666 022234 J PC ,DMPREG 
017672 : PC SEX]? 
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100000 
023660 


017740 
000007 
003642 


020526 


001200 


001200 
022214 


177775 
001124 


000001 
000003 


003666 


001170 
003642 
023616 


003624 


000003 


003446 
003444 


* tenet * 


H 6 
11:06 PAGE 53 
TEST THE DCF REGISTER 


; ISSUE A_SANITY TIMER ata s —" INTERRUPT MASKS CLEAR WITH ALL COMBINATIONS OF 
z TRANSAIT ENABLES AND CHECK 


STONL : 


SERRATE REECE EEE 


Se TEST 55 


SERRE RAE AEE ERE EEE AAA AERA 


15155: 


CORRECT CONTENTS OF pecs (RDY, 
RTE BITS IN THE EXC REGISTER TO BE CLEAR 
ALL OTHER FLAGS TO BE CLEAR (PGF, DCF, 


IP, SELF=ID) 
UIF) 


CHECK OPERATION OF ST REQUESTS IN NORMAL MODE 


#CLR,@ACR 
CONF 1G 
+4 


PC 
#1$,SLPERR 
ADCFE,@ACR 
@DCF , SNAPO 
RO 


#7400, aPGF 
#7400, aSTF 
#17, aDCF 
#MTCE ,@ACR 
#DSBT , aMTC 
RO,$TMP1 
CONF IG, #2 
11$ 


STITAB(4) ,&1 


R 
R1,$7MP1 


RO,-(SP) 
$TMP1,RO 
PC,PARCAL 
(SP)+,RO 
$STMP1,$TMP1+1 
$TMP1+1 
$TMP1+1 
$TMP1+1 
$ITMP1+1 
MSTTEE,@ACR 
ar eee 
R 


R1 
#177775,R1 
a  SGDDAT 


Sst ese. @ACR 


:CLEAR THE IIST 


EXIT IF WE CAN'T XMIT 
3FIX START OF LOOP in 


SAVE IMAGE OF DCF REGISTER 
: INIT STTE DATA SETUP 


AR BR 
“SELECT MTC 
[DISABLE BOOTS 


SHOULD WE PREVENT XMIT OF ALL CODES? 
NO IF NOT CONFIG #3. 

YES == GET MASK FOR SELF. 

:SAVE_INTR ENB 


:SHIFT 4X TO BOOT ENB 


;GET INTR ENB MASK 
:CLEAR BITS FOR DESTINATION OTHER THAN SELF. 


SAVE COUNT VALUE 

;GET ENABLE FOR PARITY GENERATOR 
SRESTORE ¢ PARITY OF DATA 

RESTORE COUNT VALUE. 


POSITION DATA 


ae mate ENABLES 
FIX PAR BIT 


;LOAD PARITY 


SEQ 0072 
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020160 301 003412 ao! ;LOAD PARITY, ENB, AND COUNT 


177411 001124 #1M0+177401 , SGDDAT 
003370 MOV A al aaa SELECT IMSK 


003364 : 
003364 001126 @STCS,$BDDAT 
000010 001126  yepesemmepenie: WAIT FOR TMO 


a ;BUT DON'T WAIT TOO LONG 
Se :TMO DID NOT SET ON A ST XFER 
022234 PC,DMPREG 
000003 003326 : ASTCSE ,@ACR sSELECT STCS 
003326 001126 @STCS,$BDDAT sREAD STCS 
001126 001124 pn tstae :1S STCS OK? 
:STCS STATUS ERROR ON ST XFER 
SET EXPECTED RTE FLAGS 
MEXCE ,@ACR 


@EXC , $BDDAT GET EXC REGISTER 
001124 eat remanesae 


44 sEXC NOT Q ON A ST XFER 
022234 PC ,DMPREG 
020526 : STITAB(4) ,$TMP1 ;CHECK FOR STF 

61$ 3SKIP IF 0 
020526 001124 STITAB(4), $GDDAT: SET STF 
020536 001200 3 it Staal ~STMP1 3 hte STB 

ZSKIP 

020536 001124 STBTAB(4) ,S$GDDAT; SET STB 


000006 H ACR 
003202 sREAD STF 
001124 os T  ;CHECK DATA 
STF ERROR ON ST XFER 
022234 
001124 : $ sEXPECTED = 0 
000005 SELECT PGF 
003144 aPGF , $BDDAT GET PGF 
8$ ‘Per SHOULD BE 0 
bu F NO 0 ON A ST XFER 
022234 SPO $60 
; GET EXPECTED DATA FOR DCF 
SELECT DCF 
: :GET DCF REGISTER 
001126 SBDDAT, -SGDDAT ;CHECK THAT THERE IS NO CHANGE 
:DCF ERROR ON A ST XFER 


INCREMENT TEST DATA 


022234 


44 
022224 PC  DMPREG 
108 ‘SKIP WHEN DONE 
020514 0 10$: Pr EXIT 


017740 
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020516 


e 


020524 
020526 


020544 
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SIDTAB: 


- SBITL 


LINE CONTROL BIT TABLES 
;SID TABLE 


;PROGRAM INTERRUPT ENABLE TABLE 
SANITY INTERRUPT ENABLE TABLE 
; INTERRUPT MASK INHIBIT TABLE 
:PGM INTERRUPT FLAG TABLE 
SANITY INTERRUPT FLAG TABLE 
;DCLO INTERRUPT FLAG TABLE 

: INVALID INPUT FLAG TABLE 


:PROGRAM BOOT ENABLE TABLE 
SANITY BOOT ENABLE TABLE 
:BOOT MASK INHIBIT TABLE 
:PGM BOOT FLAG TABLE 
SANITY BOOT FLAG TABLE 
;BREAK STATE TABLE 
UNEXPECTED INPUT FLAG TABLE 


SEQ 0074 
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020546 ENDTST: 


ON FIRST PASS, “Yoney SANITY=TIMER COUNT RATE (256 US, 8.192 MS, 
[OR 16.384 MS) AND PRINT IT OUT. 
: ON SUBSEQUENT PASSES, CHECK FOR CONSISTENCY. 


“MAINTENANCE LOOPBACK IS USED, WITH HARDWARE SELF-ID. 


bd FREER EERE REE ERE EERE EERE EERE EERE ERE ERE 
ZRTEST 56 DETERMINE SANITY TIMER CCUNT RATE 
FRA ERE KER RRKK 
020546 000004 18156: 
177776 MOV ;RAISE PROCESSOR PRIORITY 
ZINIT THE INTERFACE 
003002 CE,@A >SELECT MTC REGISTER 
003000 #DSBTIMLEN*MDSD , AMT ;SET LOOPBACK, DISABLE BOOT & DRIVERS 
C @ACRH RG GET HARDWARE SELF-ID 
023614 Rs 4, LINMBR :PUT -1T INTO LINE NUMBER: WORD 


A WORD C3 
000002 002754 ASTTEE,@ACR “SELECT STTE (S.T._ TRANSMIT ENABLE) 
020526 002752 , TT SET XMIT ENABLE FOR SELF 
002754 IP, a ;SAVE OLD INTR VECTOR INFO 


002746 
#4$ all1V SETUP NEW INTR VECTOR 


SSQE 


020770 002740 
000340 002734 #5340, allip 


023572 


ACR,R1 

ADR ,R2 

#PGCSE ,R3 
#PRDY ,R4 
#PTP+IE+GO,R5 
ASTCSE,(R1) 
#401,(R2) 


;CLEAR CHARACTER COUNT 

:R ACR ADDRESS 

ADR ADDRESS 

PGCS ACCESS CODE 

PG RDY BIT MASK 

VALUE FOR LOADING PGCS 

Select STCS 

sSTART SANITY TIMER FOR DOING 2 COUNTS 


00040 
177776 PSw :ALLOW INTERRUPTS 


R3,(R1) SELECT PGCS 

R5,(R2) >XMIT NULL PG COMMAND, SET INTR ENABLE 
RO ;COUNT # OF CHARS — 

3$ :BUT DON'T DO FOREVER 

R3,(R1) ;SELECT PGCS 

R4,(R2) :LOOK FOR PG RDY 

1$ :XMIT AGAIN IF SET 

2$ :LOOP IF NOT 


“COME HERE IF NO TIMEOUT INTR SEEN AFTER 64K TRANSMITS. 
000340 177776 %$: MOV #340,PSw RAISE PROCESSOR TO LOCKOUT INTERRUPTS 
177410 001124 #177400+TM0, SGDDAT : SETUP EXPECTED DAT 
000003 #STCSE, (R1) sSELECT STCS 
001126 MOV (Re) , $BDDAT GET CONTENTS OF STCS FOR PRINTOUT 

44 ‘NO TIMEOUT SEEN AFTER 64K TRANSMITS. 
022234 PC ,DMPREG 
022014 99$ ;THEN JUST EXIT 


sCOME HERE ON INTERRUPT, CHECK THAT am S THE CORRECT ONE. 
000004 L$: ADD as ,SP POP STACK 
MOV RO,=(SP) SAVE COUNT 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 


0000 

— I I —D 

Ronn 

QVeyqua 
W 

NN 


Se 


020770 
020774 


SBN 
-—O 0ON 
28 
on 





C-11-CRI 
-P11 


020776 
021000 


11 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

: 


RESNERAKANSASNVO 


021330 
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oO 
ai 
oO 
WYAW 
oo 
— 
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022234 
000017 
000006 
002404 
001126 


022234 


001126 
023662 


021734 
000074 

001126 
021724 
000024 


022014 
021332 


001124 
001124 
061124 


002506 
001126 


002462 
001126 


0024 36 
001126 


001124 


001124 


023664 


© eae’ 


7658: 


BR 
ASCIZ 
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SELECT PGCS 
WAIT FOR FINAL PG RDY 


R3, (R1) 
#50. ,R5 
R5 


72 
(R2) , $BDDAT 
(R1) , S$GDDAT 
#17 ,$GDDAT 


#PRDY+IE+IP+PTP 


SBDDAT , $GDDAT 
5$ 


#PGFE ,@ACR 
oe 


“4 
PC ,DMPREG 


ADCFE,@ACR 
a 


SBDDAT, - $GDDAT 


44 
PC ,DMPREG 


(SP) +, $BDDAT 
STCCNT 


. +6 

20$ 

#12.,$GDDAT 

=e -$GDDAT 
12$ 

#20. ,$GDDAT 

SabAr. °SGDDAT 


$ 
$BDDAT ,STCCNT™ 


#20. MAX NT 
#12. .MINCNT 
ago” 


. +6 
99$ 
1628 


,SGDDAT 
s VERIFY PGCS CONTENTS 


:PGCS INCORRECT AFTER INTERRUPT 


:GET oF CONTENTS 

GET SELF-ID 

;CLEAR CODE 

SET UP EXPECTED VALUE 


; SETUP —_ VALUE FOR PGF, DCF, AND EXC 


>SELECT P 


cere FLAGS 
PGS NOT O AFTER INTERRUPT 


SELECT DCF 
:GET er TEST THEM 


- SHOULD BE 0 
“DCF NOT 0. AFTER INTERRUPT 


SELECT EXC 
GET FLAGS & TEST THEM 


; == SHOULD BE 0 


ZEXC NOT CLEAR AFTER INTERRUPT 
; SETUP — VALUE FOR STF 
7 SEL rer STF 

GET S 

CHECK "VALUE 


STF INCORRECT AFTER INTERRUPT 


GET COUNT VALUE 
31S THERE A VALID COUNT? 


i IF YES, GO VERIFY CONSISTENCY. 
:NO -- SO START * Sagton VALUE . 
si3 COUNT hr 14.? 


[GO ON IF 
TERROR IF VES 


“GREATER THAN 20. ? 
NO, SO Rade te, 12 & 21 == VALID 


SSAVE MAX LIMIT 
SAND MIN LIMIT FOR FUTURE TESTING. 


SARE WE IN A 
Q IF NO. 
YES, DON'T PRINT. 


: TYPE ASCIZ STRING 


OVER THE ASCIZ 


GET 
©300>/SANI TY Timer SET FOR 256US PER COUNT./<200> 


SEQ 0076 
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021402 
021402 


021476 


021552 
021552 


021554 
0215 


021722 
021722 


021724 
021726 
021732 


022006 
022010 


000137 
012737 


022014 


022234 


022234 


001124 
001124 


001124 
002400 


023662 
023664 
023666 


* eg + 


64$: 


1 


bes: 


O$: 


BR 
;69$: .ASCIZ 


HERE ON ERROR 
12$: 


ERROR+ 
JSR 
BR 


11:06 PAGE 55-2 
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99$ 


#400. , $GDDAT 
oo 


#640. , SGDDAT 
Scania 


S$BDDAT ,STCCNT 


#400. ,MINCNT 
#640. ,MAXCNT 
ase 


99$ 
,67$ 


CHECK FOR COUNT BETWEEN 400. 


AND 640. 


:SAVE COUNT 
zAND LIMITS 


sARE WE IN ACT? 
it YES, DON'T PRINT. 
;TYPE ASCIZ STRING 
OVER THE ASCI 


66$ >GET Z 
<200>/SANITY TIMER SET FOR 8.192MS PER COUNT. /<200> 


99$ 


#800. ,$GDDAT 
+ alemmaad 


oi <Se, otenee 
$BDDAT , #1280. 
12$ 


aoe 6 hr 
#800. .MINCNT 
#1280. nMAXCNT 


99$ 
,09$ 


COUNT .LE 800.? 
ERROR IF YES. 


GREATER THAN 1280.? 
ERROR IF YES. 

SAVE COUNT 

SAND LIMITS 


sARE WE IN ACT? 


uo ASCIZ nrg: 
OVER THE A 


68$ :GET SC1Z 
<209>/SANITY TIMER SET FOR 16.384MS PER COUNT./<200> 


99$ 


44 
PC ,DMPREG 
99$ 


pckar® “DISPLY 
manOA T,$GDDAT 
Os 

PC ,DMPREG 
99$ 
MINCNT , $GDDAT 
$BDDAT , $GDDAT 
99$ 


Ay 
Pc ,DMPREG 


CAN'T RESOLVE SANITY TIMER VALUE 
: (COUNTS NOT WITHIN LIMITS 


:HERE ON SUBSEQUENT PASSES 10 CHECK CONSISTENCY 
20$: MOV MAXCNT.$GDDAT =; GET 


EXPECTED MAX LIMIT FOR TYPEOUT. 
ISPLAY COUNT AS FOUND ON FIRST PASS. 

>SEE THAT avy NOT EXCEEDED. 

OK IF .LE MAX LIMIT. 

[COUNT GREATER THAN MAX OF RANGE. 


+ 3 gata MIN LIMIT. 


; CHE CK 
70K IF ACTUAL .GT MIN LIMIT. 
:COUNT LESS THAN MIN OF RANGE. 


SEQ 0077 
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022014 012677 001562 99$: fa a ;RESTORE VECTOR 
022020 012677 001560 (SP)+,@ 


022024 012777 100000 001540 #CLR,@A SINIT THE INTERFACE 


Oee0e aged 
37 023670 


000240 
0001 
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-SBTTI. TEST AND UTILITY SUBROUTINES 


sSET THE IIST TO INTERNAL LOOPBACK MAINTENENCE MODE USING 
:THE SID VALUE POINTED TO BY R4 


022202 SETMNT: CLR MNTBTS ;CLEAR EXTRA MNT BITS 
100000 SETMN1: MOV A#CLR,@ACR sRESET THE INTERFACE 

020516 MO SIDTAB(4) ,RO GET SID VALUE 

000016 #TMT,R sADD LOOPBACK + BOOT DISABLE TO MNT. SID 
022202 ZADD ANY EXTRA MAT BITS 

001476 CR,@ACR ;SHORT DELAY TO ALLOW RESET TO WORK 


001470 001466 
000015 001460 E,@ACR CHOOSE MTC 
001460 RO,aMTC ;LOAD MTC 
000001 001446 #PGCSE ,@ACR SELECT PGCS 
001446 023610 aPGCS ,DISPLY SREAD PGCS 
004000 023610 #PRDY .DISPLY CHECK FOR RDY 

1$ ;SKIP IF SET 

:DEVICE CLR DID NOT SET PGCS RDY 


001414 : SELECT PGF 
;CLEAR BOOT FLAGS 
:CLEAR BOOT FLAGS 

001376 MOV ae ,aDCF ir DCF FLAGS 


022234 
000005 


022202 MNTBTS: 0 


SET MAINTENENCE MODE SO THAT SANITY TIMER OPERATIONS ACT 
LIKE PROGRAM GENERATED OPERATIONS 


022204 022202 SSTMNT: MOV AMTYP .MNIBTS ;SET TYP TO A 1 
022212 000 BR SETMN1 :EXIT THROUGH SETMNT 


PARITY CALCULATION SUBROUTINE 
; COUNTS THE NUMBER OF 1 BITS IN RO IN R? 


022214 PARCAL: MOV RO,-(SP) 
1s CLR R1 


1$ 
(SP) +,RO 
PC 


022232 
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:DUMP ALL REGISTERS ROUTINE 


156676 DMPREG: BIT #B1TO,aSWR TEST BITO 
BNE 1$ SKIP IF SET 
PC sEXIT IF 0 
1$: -HDRMES 
022334 MOV #9.,TCR :D0 9 TIMES 
@ACR,-(SP) :zPUSH @ACR ON STACK 
23 aACR ZINIT ADDRESS 


001302 @ADR , = (SP) 7-SAVE @ADR FOR TYPEOUT 
033671 :2GO TYPE--OCTAL ASCII(ALL DIGITS) 


022334 TC ;DONE 9? 
2$ 


:D0 9 

033710 
;;POP STACK INTO @ACR 
CHECK FOR ERR HLT 
:SKIP IF 0 


6 


BE 
z 


aaa 


BSCR aR NS 


NMonononeferyo 

WNWNANWA 
ed ed ed od 
AnSWN-OoOYrw 


Nm 
W 


3$: TS EXIT 
TCR: 0 . 
sROUTINE TO GET DEVICE PARAMETERS 


022344 ; TYPE 658 i TYPE ASCIZ STRING 


64$ sGET OVER THE ASCIZ 
<200>/IN THE FOLLOWING THREE PRINTOUTS, TYPE THE NEW DATA OR QO IF NO CHA 


033465 : -ASKDVA 
023572 MOV ACR,~(SP) :sSAVE ACR FOR TYPEOUT 

:2GO TYPE--OCTAL ASCII(ALL DIGITS) 
033667 - SPACE 


(SP) +,RO GET VALUE hg IN. 

11$ :1F ZERO, DON'T CHANGE. 
023572 RO,ACR [STORE NEW VALUE 
023572 160000 : oo + CHECK “ LEGALITY 


;LOOP IF BAD 
000003 023572 1 #3,ACR >CHECK FOR MOD. 4 
10$ SLOOP IF BAD 
023572 023574 a [LOAD OTHER ADDRESS SLOTS 
023576 ACRH,ADR 
ADR 
023600 MO abet -ADRH 


104401 ¢ KPIV 
013746 023602 tiv, -(SP) 24 SAVE IIIV FOR TYPEOUT 


022572 104403 +260 O TYPE=-OCTAL ASCII 
022574 006 , i: TYPE 6 DIGITS 
022575 000 - * SUPPRESS LEADING ZEROS 





D 7 
MAINDEC=11=CRIIA MACY11 POTTED off ae ot 11:06 PAGE 57-1 
CRIIAA.P11 30-NOV-78 10:58 T AND UTILITY SUBROUTINES 


022576 033667 TYPE » SPACE 
DOCT 


GET VALUE TYPED IN. 
1 cif QO, yt i CHANGE . 

023602 [LOAD NEW VALUE 
023602 002000 12$: MP : CHECK FOR LEGALITY 


*LOOP IF 
000003 023602 :CHECK FOR MOD. 4 
;LOOP IF BAD 
023602 023604 MOV LOAD PIL 
023604 IJIP ‘MIT IlIv+2 


7sSAVE IIIL FOR TYPEOUT 


22GO TYPE--OCTAL ASCII 
7zTYPE 6 DIGITS 
‘ . 9) : SUPPRESS LEADING ZEROS 
033667 - SPACE 


(SP)+,RO GET VALUE ay IN. 
21$ IF ZERO, DON'T CHANGE. 
023606 RO, ITIL :GET BR LEVEL 
023606 000004 : ae > CHECK ag ata 


$ :LOOP IF 
023606 000007 IIIL,47 : CHECK 
2$ ;LOOP IF BAD 
023346 3$ ; JUMP OVER HELP MSG. 


022734 > 2 TYPE ont STRING 
:GET OVER THE ASCIZ 
2500>/HARDWARE CONFIGURATION CODES ARE:/ 


023006 ,O9$ 3: TYPE ASCIZ STRING 
R 68$ :;GET OVER THE ASCIZ 
023072 <CRLF>/ 0: MAINT. MODE ONLY;EITHER NO TERM, OR INHIBITS/ 


023072 104401 023100 71$—* rz TYPE ASCIZ STRING 

023076 000436 BR 70$ *:GET OVER THE ASCIZ 

‘eteins --71$: <CRLF>/ 1: IIST BUS TERMINATED, WITH NO INTERFERING INTERFACES/ 
. 


023174 104401 023202 , 73$ ::TYPE ASCIZ STRING 
623200 000427 BR 72$ “GET OVER THE ASCIZ 
citi : <CRLF>/ 2: OTHER INTERFACES ONLINE WITH IDLE XMIT/ 


023266 75$ ii TYPE ASCIZ STRING 
R 74$ “GET OVER THE ASCIZ 
<CRLF>/ 3: OTHER ACTIVE NON-INHIBITED UNITS ONLINE/ 


023354 : 77s i: TYPE ASCIZ STRING 
‘GET OVER THE ASCIZ 
<500>/ENTER HARDWARE CONFIGURATION TYPE (0-3) OR 111 FOR HELP: / 


) 
) 
) 
9 
) 
) 
) 
0 
) 
) 
) 
1 
) 
) 
) 
2 
) 
) 
) 
3 
) 
) 
) 
) 


. > 


T VALUE 
E IF VALID 


SSN at oh en et Ne en es NJ SS SS SS 


aur 


023660 ; MO (2?) +, CONFIG GE 
023456 023660 000005 CONF 1G ,4#3 558 
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101402 
000137 022726 i a 4 i at DO HELP MSG. 
ROUTINE TO REPORT THE SELF ID of THE IIST 


001236 GETSID: TST sPASS 1? 
BEQ 1$ SKIP IF YES 
P sEXIT IF NOT 
000042 1$: SARE WE IN ACT? 
2$ :IF YES, DON'T PRINT 
033674 


SID 
100000 000046 2$: seLAS INTERFACE 
000042 :GET SID 


RO INTO Be=-0 
177770 #177770,RO “CLEAR B15-3 
023570 MOV RO,SIDNUM SAVE SELF ID NUM, 
000 B42 :IN ACT 


3$ :DON’ T PRINT IF YES. 
023550 RC,-(SP) SAVE RO FOR TYPEOUT 


2 
023552 £360 TYPE=-OCTAL ASCII 
006 : TYPE 6 DIGITS 
[SUPPRESS LEADING ZEROS 
3$: C sEXIT 
023570 SIDNUM: 0 
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-SBTTL DEVICE ADDRESS PARAMETER BLOCK 


023572 177500 ACR: 177500 sACCESS CONTROL REGISTER 
023574 177501 ACRH: 177501 :HIGH BYTE OF ACR 


023576 : sACCESS DATA gp tee. 
: ; POM=GEN. ey ENABLES REGISTER 


PGM-GEN. 
; SANITY TIMER XMIT ENABLES REGISTER 
SANITY TIMER CSR 
; INPUT MASKS REGISTER 
;PGM-GEN. I/B FALAGS REGISTER 
: SANITY TIMER FLAGS REGISTER 
;DCLO/DISCONNECT FLAGS REGISTER 
: EXCEPTIONS REGISTER 
177502 MTC: ;MAIN TENANCE REGISTER 


177503 CH: = - 177503 : YT 

000260 : 260 ZLIST INTERRUPT VECTOR ADDRESS 
000262 : @6e :TIST INTERRUPT PRIORITY ADDRESS 
000006 ; 66 Z11ST INTERRUPT LEVEL 


STCCNT: . COUNT OF # PG CHARACTERS TRANSMITTED DURING 
; TWO COUNTS OF THE SANITY TIMER. 

MINCNT: . >MINIMUM ALLOWED VALUE OF STCCNT. 

MAKCNT :. ;MAXIMUM ALLOWED VALUE OF STCCNT. 
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2447 .SBTTL END OF PASS ROUTINE 
(1) 

(2) ° PERERA AREER EERE RARER KRREREERRERRRERRERRKK RRR R REE 
(1) + * INCREMENT THE PASS NUMBER ($PASS) 

(1) : INDICATE END-OF~PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

(1) s*TYPE ‘END PASS #XXXXX'" (WHERE XXXXX IS A DECIMAL NUMBER) 

(1) S*]F THERES A MONI TOR GO TO IT 

1) :*]F THERE ISN'T JUMP TO TST1 

(1) 

(1) 023670 SEOP: 

(1) 023670 SCOPE 

(1) 023672 005037 001102 CLR $TSTNM ziZERO THE TEST NUMBER 

(1) 023676 005037 001214 CLR $TIMES 7 ZER@” SHE “NUMBER OF ITERATIONS 
(1) 023702 005237 001236 INC $PASS INCREMENT THE PASS NUMBER 

(1) 3706 042737 100000 001236 BIC #100000, $PASS ::DON' ALLOW A NEG. NUMBER 

(1) 023714 005327 DEC (PC) + > ; LOOP? 

(1) 023716 000001 SFOPCT: . WORD 1 

(1) 023720 003022 BGT $DOAGN s:VES 

(1) 023722 012737 MOV (PC) +,a(PC)+ > RESTORE COUNTER 

(1) 023724 000001 SENDCT: .WORD 1 

(1) 023726 023716 $SEOPCT 

(1) 023730 104401 023775 TYPE , SENDMG TYPE "END PASS @#" 

(2) 023734 013746 001236 MOV $PASS,-(SP) SAVE $PASS FOR TYPEOUT 

(2) 023740 104405 TYPDS :GO TYPE==DECIMAL ASCII WITH SIGN 
(1) 023742 104401 023772 TYPE » SENULL “TYPE A NULL CHARACTER 

(1) 023746 013700 000042 $GET42: MOV a742,R0 7:GET MONITOR ADDRESS 

(1) 023752 001405 BEQ $DOAGN + BRANCH IF NO MONITOR 

(1) 023754 000005 RESET 7:CLEAR THE WORLD 

(1) 023756 004710 SENDAD: JSR PC, (RO) ::GO TO MONITOR 

(1) 023760 000240 NOP 7; SAVE ROOM 

(1) 023762 000240 » NOP :IFOR 

(1) 023764 000240 ¥ NOP sZACT11 

(1) 023766 $DOAGN: 

(1) 023766 000137 JMP a(Pt)+ RETURN 

(1) 023770 002524 $RTNAD: .WORD TST 

(1) 023772 377 377 000 $FNULL: .BYTE <1 1,9 :ZNULL CHARACTER STRING 

(1) 023775 015 042412 062116 $ENDMG: .ASCIZ <15><12>/END PASS’ #7 

(1) ©246002 050040 051501 020123 

(1) 0246010 
2448 
2449 .SBTTL SCOPE HANDLER ROUTINE 

(2) . FEAR ERA RRA EERE EEE REE EEE ERERRERRERERERREHE EKER eee 
(4) S*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENI 
(1) 7*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) 7*AND (OAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

(1) :*THE SWITCH GPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) + #SW1G=" LOOP ON TES 

(1) s*SW11=1 INNIBI1 IERATIONS 3 . 
(1) > *SWO9=1 LOOP ON F 

(1) **CALL 

4? if SCOPE 3, SCOPE=101 

(1) 024012 $SCOPE: 

(1) 026012 104407 sz TEST FOR CHANGE IN SOF T=SwWhk 
(1) ::G0 TO fhaen ROUTINE JF RETURN PC LESS THAN 100 
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; sOTHERWISE CONTINUE 
024014 001002 CMP 1 « .41002 


BHI 
024264 JMP $ERROR 
040000 1$: BIT #BIT14,aSWR [LOOP ON PRESENT TEST? 
BNE SOVER YES IF SW14=1 
:#AHHHSTART OF CODE FOR THE XOR TESTERMAWas 
$xTSTR: BR 6$ :1F RUNNING ON THE ‘XOR'’ TESTER CHANGE 
STHIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
@FERRVEC,-(SP) SAVE THE CONTENTS OF THE ERROR VECTOR 
#5$, AFERRVEC :iSEr FOR TIMEOUT 
a#177060 TIME OUT ON XOR? 
(SP) +, AERRVEC : SRESTORE THE ERROR VECTOR 
$SVLAD O TO THE NEXT TEST 
S$: (SP) +, (SP) + : CLEAR THE STACK AFTER A TIME OUT 
(SP) +, * AMERRVEC 


;RESTORE THE ERROR VECTOR 
BR LOOP ON THE PRESENT TEST 
6%: ;44AHHEND OF cose FOR THE xoR’ “TESTERaMenn 
23: TSTB sen LG $ a ee OCCURRED? 
001103 placemat a FOR THIS TEST OCCURRED? 
155020 - T09,aSWR LOOP ON ERROR? 
001706 é $LPERR,$LPADR SISET LOOP ADDRESS TO LAST SCOPE 
BR SOVER 


IF NO 
SERFLG :ZERO THE ERROR FLAG 
$TIMES :CLEAR THE NUMBER OF iret roe TO MAK 
1$ sESCAPE TO THE NEXT TEST 
154766 : + hi ameee : INHIBIT ITERATIONS? 


‘FBR IF YES 
$PASS i IF FIRST PASS OF PROGRAM 
1$ INHIBIT ITERATIONS 
e . $SICNT INCREMENT ITERATION COUNT 
001104 $TIMES,$ICNT 2 CHECK THE NUMBER OF ITERATIONS MADE 
SOVER :BR IF MORE ITERATION REQUIRED 
001104 1$: #1,$1C : :REINITIAL 1ZE THE ITERATION COUNTER 


> 


: s UNEXPECTED TRAP _OR_ INTERRRUPT 


001274 
001234 


SHiCNT. STIMES 


TSTNM 
STSTNM,STESTN 
(SP), $LPADR 


T NUMBER OF ITERATIONS TO DO 
[COUNT TEST NUMBERS 
SET TEST NUMBER IN APT MAILBOX 
‘ ESAVE SCOPE LOOP ADDRESS 


~_~—- 0 
Ww 


: SAVE ERROR LOOP ADDRESS 

7:CLEAR THE ESCAPE FROM ERROR ADDRESS 
7 ;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 

$TSTNM, vc eee : DISPLAY TEST NUMBER 

$LPADR, (SP) eee ee ADDRESS 


I 
SMXCNT: 1 7 eMAX. NUMBER OF ITERATIONS 
-SBTTL ERROR HANDLER ROUTINE 


° FREER EERE REAR EERE EEE REAR EERE ENERO EEERKE EKER ERE ee 
>*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO $ERRTYP ON ERROR 

i 0 THE aul TCM OPTIONS aap dha BY THIS ROUTINE ARE: 

7 *SW15= HALT ON ERRO 


ii i Bi i i i i Bi i td ad 8 td nd 8 ad td I 


(SP); $LPERR 
$ESCAPE 


001715 MO #1, SERMAX 
154666 $OVER: 


pare ye 
~_~— 


024262 


eS OO NN i a SS aS aS aS sss wr 
. 
— 


( 
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( 
( 
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3 *Sw13=1 INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 


N ;ERROR=EMT AND N=ERROR ITEM NUMBER 


1=CRIIA MACY11 30A(1052) 
1 0:58 


-1 
Pt 30-NOV=78 1 


22 TEST FOR CHANGE IN SOF T-SWR 
001103 : SERFLG 32SET THE ERROR FLAG 
7$ ;:DON'T LET THE FLAG GO TO ZERO 
001102 154640 MO $TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
002000 154630 * hier = A a 


001220 ,$BELL S=RING BELL 
: $ERTTL '=COUNT THE NUMBER OF ERRORS 
a (SP) , SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 


UB SE 
001114 izSTRIP AND SAVE THE ERROR ITEM CODE 
154570 T13,aSWR 3zSKIP TYPEOUT IF SET 

20 7: SKIP TYPEOUTS 

(SP) ,41002 721F RETURN PC LESS THAN 1002 

BHI 12$ ;ZERROR IS ILLEGAL TRAP 
3zPROCESS UNEXPECTED TRAP OR INTERRUPT 
000004 001116 MOV 4(SP) , SERRPC 32GET PC AT TIME OF FALSE TRAP 
000002 001116 #2, $SERRPC ;ZADJUST PC 
024440 , 10% ii TYPE HEADER 
001116 SERRPC ,-(SP) 77SAVE SERRPC FOR TYPEOUT 
C 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 

024446 11s 


M4, (SP) 3zGET FALSE TRAP VECTOR ADDR 
(SP) , SERRPC 
SERRPC ,=( SP) 72SAVE SERRPC FOR TYPEOUT 

32GO TYPE=-OCTAL ASCII(ALL DIGITS) 


-$SCRLF 
gl ai :zPOP FALSE TRAP VECTOR PC&ADDR 


BR 
000040 : . <200>"PC= ° 
054105 : . * UNEXPECTED TRAP TO * 
042105 
020120 
024470 


024474 


‘uae 3:GO TO USER ERROR ROUTINE 


° 


122737 001250 #MAPTENV, SENV 3 RUNNING IN APT MODE 

001007 2$ 3sNO,SKIP APT ERROR REPORT 

113737 024526 ::SET ITEM NUMBER AS ERROR NUMBER 
004737 027550 A 3¢REPORT FATAL ERROR TO APT 


. : &R . : : APT ERROR LOOP 

154402 7HALT ON ERROR 
; e :iSkIP IF CONTINUE 
024540 + HALT ON ERROR! 
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024542 104407 :2TEST FOR CHANGE IN SOF T-SWR 
001000 154366 3$: T Y _ileaatacaaet: 5 ONO ERROR SWITCH SET? 


;BR I 
001110 MO $LPERR , (SP) : FUDGE RETURN FOR LOOPING 
001216 4$: ae CHECK FOR AN ESCAPE ADDRESS 


‘:BR IF NONE 
013716 001216 ; SESCAPE,(SP)  :FUDGE RETURN ADDRESS FOR ESCAPE 
022737 023756 060042 } ASENDAD,a#42 =: :ACT=11 |) AUTO-ACCEPT? 


001001 BNE 6$ ; ;BRANCH 
000000 s3VES 


er 


6$: 
RTI 7 RETURN 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


LR EEE EEE RRR ERE REE RRR EER RR Re 

*THIS ROUTINE USES THE ‘ITEM CONTROL BYTE'’ ($1 TEMB) TO DETERMINE WHICH 
;*FRROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ ($ERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
104401 001225 TYPE - $CRLF : i oe ae RETURN'' & "LINE FEED"’ 


RO,-(SP) ; ; SAV 
R > PICKUP THE ITEM INDEX 
001114 a4$ 1 TEMB,RO 
024622 1$ :21F ITEM NUMBER IS ZERO, JUST 
ate THE PC OF THE ERROR 
024624 001116 SERRPC ,-( SP) 7 SAVE oe FOR TYPEOUT 
ERROR ADDRESS 
024630 £360 TYPE—~OC TAL ASCII(ALL DIGITS) 
000445 BR 


GET OUT 
: :ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 


000002 


RAAR BRA RAR RR RAR RR RRA — 


RO 
001354 ASERRTB,RO ::FORM TABLE POINTER 
024660 aia 3:PICKUP "ERROR MESSAGE** — 


OR MES 

: . WOR 0 32" ERROR MESSAGE** POINTER a HE RE 
001225 P ;2°"CARRIAGE RETURN'' & ‘LINE FEED'’ 
024676 : MO >:PICKUP ‘DATA HEADER’’ POINTER 

5$ :¢SKIP TYPEOUT IF 0 
22 TYPE THE ‘DATA HEADER’ 

: . WOR 0 ;:'DATA HEADER’ POINTER GOES HERE 

001225 $CRL tisavE Rien RETURN’ & "LINE FEED" 


AVE R 
‘PICKUP “DATA TABLE*’ POINTER 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
1 
2 
1 
1 
1 
1 
: 
1 
; 
1 
1 
1 
1 
2 
2 
2 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


7$ ¥ IMAL 
a(R1)+,=(SP) : 7 SAVE a(R1)+ FOR TYPEOUT 
6: 32G0 TYPE=-OCTAL ASCII(ALL DIGITS) 


eee eee ee ee ee ee le eee le ees ae ae ae a 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


— aan = 


024726 





& 


I 
] 


vs 


~ 
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ERROR MESSAGE TYPEOUT ROUTINE 


@(R1)+,-(SP) 
8$: T (R1) 

9$ 
.11$ 
6$ 


EC=11=-CRIIA MACY11 30A(1052) 
P11 30-NOV-78 10:58 
024726 DED 


024756 
024742 


024744 9$: 
10$: 


(SP)+,R1 
(SP)+,RO 
, SCRLF 
PC 


;;SAVE a(R1)+ FOR TYPEOUT 
a TYPE=-DECIMAL ASCII aise SIGN 
S ip ANOTHER NUMBER? 


BR IF 
‘I TYPE 102) SPACES 
OOP 


7 RESTORE R1 
:¢REST ORE RO 
32''CARRIAGE RETURN’ & ‘LINE FEED’ 


RTS + IRE URN 
11$: AIT FF +t TWOC2) SPACES 


-EVEN 
-SBTTL ROUTINE TO SIZE MEMORY 


024756 02004 
024762 


PLR RRR EERE ERE EER EERE EERE REE REE EERE EEE EERE EEE 


> *CALL: 
s JSR PC,$SIZE 


RETURN 
:*SLSTAD ny atit ott 
: WITH =~ LAST VIRTUAL ADDRESS OF THE LAST BANK 
3® wl HOU oP == LAST ete ADDRESS OF AVAILABLE MEMORY 
;*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 
3*$KT11 IS THE MEMORY MANAGEMENT KEY 
>*BITO7 = ° ‘i T USE MEMORY ee 
:* T BE SETUP BEFORE THE CAL 
3*BIT15 = 3 DON'T HAVE MEMORY MANAGEMENT OPTION 

:* DETERMINED BY ROUTINE 

024762 $SIZE: RO,-(SP) RO ON THE STACK 
R1 ON THE STACK 
R2 ON THE STACK 


E R3 ON THE STACK 

PRESENT ERROR VECTOR PS & PC 
VE THE STACK POINTER 

OLD PSW AND PC ON ST 


) 
@#ERRVEC ,- (SP) 
@FERRVEC+2,-(SP) 


MOV SP RO 3 SA 
3 SET ‘ty — PS TO THE PRESENT PS 


I 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
4 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
C 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
cae 
( 
( 
( 
( 
( 
( 
( 
( 
( 


kk a a th sh 3 2 Ah) 9 8 2 ot ot SS 4 3 2 ht S f—J SY Ss 
eee eee eee eee ee eee ee eee ie Se ee ea wa 


(SP)+, QFERRVEC #2 
#3776.R1 


(PC) + 
co 


000004 
025020 wives. ~9KT11 
#KIPARO ,R2 
#*> 

#77406, -40(R2) 
(SP), (R2)+ 
#200; (SP) 
#197600, -(R2) 


ws AWERRVEC 


177740 


025100 
025102 025120 


ACK 
3zSAVE THE PSW IN @#ERRVEC+2 
; SETUP ADDRESS 
USE MEMORY MANAGEMENT? 
:ISET a MEMORY MANAGEMENT 


$CORE 
ae ,@HERRVEC” “3gSET FOR TIMEQUT 


T11 ARE YOU THERE? 
3 YES=~SET KT11 KEY 
: INITIALIZE FOR *PAR"* LOADING 
SZADDRESS OF FIRST 'P. 
:;LOAD EIGHT *PAR.'S'’ AND EIGHT 'PDR.'S*’ 
2 PDR = page UP, READ/WRITE 


LOAD * 
: SUPDATE FOR NEXT *PAR"’ 
:-LOOP UNTIL ALL EIGHT ARE LOADED 
: SETUP KIPAR7 FOR I/0 
SETUP KIPAR6 FOR TESTING 
>. CATCH TIMEOUT IF NO SR3 





§ 
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-P11 30-NOV-78 10:58 ROUTINE TO SIZE MEMORY 


012737 000020 172516 #20, a4SR3 7 sENABLE 22 BIT MODE 

000401 ; BR ;: THIS PDP-11 HAS A SR3 REGISTER 
(SP) +, (SP) + 7 CLEAN OFF THE » toananen SR3 
a#SRO ME ME 


3$: R > TURN ON 
000004 MOV ooh LF QFERRVEC® GESET FOR TIME "ore 
4$: 143776 ON 


000040 a20. (R2) 
172356 OAK [PAR?, (R2) 
$K TOUT: (R2) ,R2 BANK +1 
177572 ( a¥sRo < TURN OFF MEMORY MANAGEMENT 


BR $SIZEX 
100000 025020 S$KTNEX: #100000, $kT1 KT11 nog thie g 
025220 000004 $CORE: #$CROUT, SPERRVEC’ *Z ESET, FOR TIMEOUT 


R2 BANK 
004000 1$: #4000,R1 : INCREMENT BY 1k 
000040 #40,R2 i31K STEP 

(R15 TRAP ON TIME OUT 
177776 #177776,R1 *=LAST ONE 


1$ *=NO=-TRY AGAIN 
004000 $(ROUT: #4000 R1 
000040 $SIZEX: 0,R2 ::DROP BACK 

RO. Sp RESTORE THE STACK 
000006 (SP) +, @#ERRVEC+2° ::RESTORE ERROR VECTOR 
000004 (SP) +. AMERRVEC 
025264 R1,$LSTAD ; LAST ADDRESS 
025266 R2.$LSTBK ST BANK 

(SP) +,R3 «RESTORE R3 

(SP) +-R2 *=RESTORE R2 

(SP)+<R1 *SRESTORE R1 

irre ae : RESTORE RO 


$LSTAD: . 0 ::CONTAINS THE LAST ADDRESS 
$LSTBK: .WORD OQ eee THE LAST BANK 
-SBTTL READ AN OCTAL NUMBER FROM’ THE T 


AIUD IOIIIOIIDIDIOIOIIIIIDIDIOIOIOIOI IOI IOIUIDIDIDIOIIIUIOIUIUIOIIOIIIIOUIIOOIO IOI IO oot 
“STHIS ROUTINE WILL _— AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINAR 

3*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘"?"' WILL BE TYPED 
:*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 

:* THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


3*CALL 

hod RDOCT READ AN OCTAL NUMBER 

be RETURN HERE ::LOW ORDER BITS ARE ON TOP OF THE STACK 
_* :¢HIGH ORDER BITS ARE IN $HIOCT 


025270 $RDOCT: (SP) ,=(SP) 3sPROVIDE SPACE FOR THE 
16666 MO 4(SP) ,2(SP) 4 ay NUMBER 
RO,-(SP) PUSH RO ON STACK 
R1,~(SP) PUSH R1 ON STACK 
R2,-(SP) 3=PUSH R2 ON STACK 
at AN ASCIZ LINE 
0 MOV (5?) +,RO GET ADDRESS OF 1ST CHARACTER 
025312 025416 RO,5$ ;;AND SAVE IT 


> 


177572 


I 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
4 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


3S WWW A ss Ss SS 2 ss Sh Ss Ss af) SY SP SS Ss Sh 2 Ss hh Sh hs hs hh hh Ss Sh Yh 
eee ee ee es oe we ae es ce ee a a a 
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EAD AN OCTAL NUMBER FROM THE TTY 


R1 ;zCLEAR DATA WORD 


Re 
2$: (RO) +,=(SP) ;sPICKUP THIS CHARACTER 
:2IF ZERO GET OUT 
7 =MAKE SURE THIS CHARACTER 
:21S AN OCTAL DIGIT 


MACY11 30A(1052) 
10:58 R 


i3*2 
pa84 
738 


Re 

77770 #*C7, (SP) 3sSTRIP THE ASCII JUNK. 
(SP)+,R1 :sADD_IN THIS DIGIT 
2$ OOP 


(SP) + *:CLEAN TERMINATOR FROM STACK 
R1,12(SP) t:SAVE THE RESULT : 


3POP STACK INTO R2 
:zPOP STACK INTO R1 
;sPOP STACK INTO RO 
; URN 


ZcRET 
4$: (SP) + 37CLEAN PARTIAL FROM STACK 
(RO) 7: SET A TERMINATOR 
33 TYPE UP THRU THE BAD CHAR. 


0 

, SQUES yr "'cR'' & “Fe 

BR 1$ 32 TRY AGAIN 

025426 000000 $HIOCT: .WORD 0 :sHIGH ORDER BITS GO HERE 
-SBTTL TTY INPUT ROUTINE 


DD RRR KRRRKEKERREEEREKERKEREKKKEKERRREREKREEKEEEEEEEEEERRE 


“ENABL LSB 


DDO IOI IOIOIOIIIOIDIOINIIIIOIOIDIOIOIIOIOIOIOIOIDI TI IOIIIOI IOI II III TTI RII 
> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
3 *WHEN OPERATING IN TTY FLAG MODE. 
48 000176 001140 $CKSWR: CMP tapes. am azi8 Mad a SELECTED? 


0010 BN 
153500 a$TkS :: ERE? 
BP 15$ ss] 
153474 a$TKB,-(SP) *:SAVE THE C 
177600 #°(177, (SP) + STRIP=OFF II 
000007 MP #7, (SP+ : CONTROL G? 


15 USER 
001134 000001 MPB «- $AUTOB. #1 : TARE WE RUNNING IN AUTO-MODE? 
15$ : ;BRANCH IF YES 


000012 
025426 


WWW 9 9 2 Ss SS Sh SS SS SS Sh Yh tt S 


ee NNN NN eee ee eee eee es aaa ae ea 


5$: 


I 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
d, 


2 


0254 
025472 
025474 026307 T -SCNTLG : 
025500 026314 - SMSWR 3: TYPE CURRENT CONTENTS 

025504 000176 MOV SwREG,=<SP) 2:SAVE SWREG FOR TYPEOUT 

025510 :-GO TYPE=-OCTAL ASCII(ALL DIGITS) 


kk ak as 2 a ss Ss af) 9 2 I BY Ss Ss So as 


;sECHO THE CONTROL-G (*G) 


Se tt Teen ie Te ht Tat Tate at a i a a at ee ee et Ee, ei ee, i 


Mr 
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104401 026325 TYPE . SMNEW 3 ;PROMPT FOR NEW SWR 
005046 19$: CLR -(SP) : CLEAR COUNTER 
005046 CLR ~(SP) : THE NEW SWR 

105777 153416 7$: TSTB a$TKS ZZ CHAR THERE? 

100375 BPL 7$ ::1F NOT TRY AGAIN 


117746 =153412 @$TKB,-(SP) :sPICK UP CHAR 
042716 177600 #*C177, (SP) 3=MAKE IT 7-BIT ASCII 


021627 000025 : (SP) 425 2iIS IT A CONTROL-U? 
001005 BN 10$ . CH IF NOT 
026302 ‘ ::YES. ECHO CONTROL=-U (“U) 
000006 : #6,SP 


IGNORE PREVIOUS INPUT 
SILET'S TRY IT AGAIN 


21S IT A <CR>? 
ANCH IF NO» 
sc7YES, IS IT THE FIRST CHAR? 
¢. CH IF YES 
153336 

000006 
001225 : RLF AND <LF> 
001135 000001 ihe 7 ; RE ; da KBD INTERRUPTS? 
000100 153314 #100, a$TKS s - TTY KBD INTERRUPTS 


026550 6$: PC, $TYPEC 
000060 (SP) 460 


18$ 
000067 FA aaa 
000060 #60, (SP)+ “OFF ASCII 
000002 2 (SP) ITs THIS THE FIRST CHAR 


:BRANCH IF YES 
:3NO, SHIFT PRESENT 
CHAR OVER TO MAKE 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


000002 17$: 2(SP) 

177776 -2(SP), (SP) 
BR 7$ 

001224 18$: $QUES 


0257 
025710 000720 BR 20$ S: SIMULATE CONTROL-U 
-DSABL LSB 


SE A RR E REE E RR EEREEERREREREREREERREEEERERERREKERE K 


emus ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ALL: 
RDCHR 32 INPUT A SINGLE tg te FROM THE TTY 
RETURN HERE eT BAR] 1S _ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


+s» —) ae et es ea YY) oe os 2 or kkk i id sk tk th a st a od 2 8a 8 Sh 8 tt 
SN eee eee ee eee eee eee ee eee ee eee eae ee a fe fe as a a a 


SN ORO ON RR FN FR FSR FR FR FR FR RFR FR RFR FR FRR 
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Cs reels MACY11 -satibsancid ot oer fe i PAGE 30-8 


1 
30-NOV-78 10:58 OUT 


025712 $SRDCHR: MOV (SP) ,=(SP) : :PUSH DOWN THE PC 
000002 ‘ MOV 4 (SP) SPS ,2(SP) TH E PS 


MAI 
RI 


ar 4 


~~ eS 
-_" : 


SNe eee eee eee eee eee ele i flee le ae ea a a 


000004 MOVB @$TKB,4 (SP) 
000004 SIGET RID OF JUNK IF ANY 
000023 MP a #2 21S Hu a cate 


: SLOOP UNTIL_ITS THERE 
CHARACTER 


:iGer 
MAKE IT 7-BIT ASCII 
‘1S IT A CONTROL-Q? 
7 1F NOT DISCARD IT 
3 RESUME 


BR 1$ a 
000140 : 4(SP) ,4140 71S IT UPPER CASE? 
4$ BRANCH IF YES 
000175 4(SP) ,4175 :1S IT A SPECIAL CHAR? 
4$ * BRANCH IF YES 
000004 #640,4(SP) 2 ¢MAKE IT UPPER CASE 
4$: 3GO BACK TO USER 


JOSS IOI ISI IOC IIOIIIISISIOIIIOIIDIOIISIDITIIOIO IDOI I IOI TOI ITI I Tot 


:*THIS _ROUT INE WILL INPUT A STRING FROM THE TTY 


RDLIN 33 INPUT A STRING FROM THE T 
RETURN HERE as ster OF FIRST CHARACTER “ute BE ON THE STACK 
; TERMINATOR WILL BE A BYTE OF ALL 0°S 


(SP) +,421 
2$ 


010346 : R3,-(SP) 32SAVE R3 
C -(SP) CLEAR THE - mees: KEY 
026266 : ASTTYIN,R3 SIGET ADDRESS 
026302 : AM$TTYIN*12.,R3  ;;BUFFER FULL? 
4$ BR IF YES 
:GO READ ONE CHARACTER FROM THE TTY 
(SP) +, (R3) :3GET re 
000177 : a crane :1S IT A _RUBOUT 


5 IF NO 
(SP) SITs roee THE FIRST RUBOUT? 


6$ :2BR 
000134 026264 a'\,9$ 77 TYPE A BACK SLASH 
026264 ‘ 
177777 : MO #-1, (SP) 23 SET THE RUBOUT KEY 
: fe ;;BACKUP BY ONE 
026266 MP R3,ASTTYIN ee S EMPTY? 


IF YES 
026264 ; (R3) ,9$ :7SETUP TO TYPEOUT THE DELETED CHAR, 
026264 9$ :GO TYPE 
$ 7:GO READ ANOTHER CHAR. 
(SP) ;;RUBOUT KEY SET? 
7$ :-BR_ IF NO 
000134 026264 #'\ S$ 3: TYPE A BACK SLASH 


026264 9 
(SP) ;-CLEAR THE RUBOUT KEY 
000025 : #25,(R3) 3-1S CHARACTER A CTRL U? 


001003 BN 4 32BR IF NO 
026154 104401 026302 -SCNTLU 3. TYPE A CONTROL ‘U"' 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


RRM BS SS 2 SP 3 2 SS SS SS SS hh SS 2 2s 3 BP 2 af) SP SI I 2 oh oh ht tt 
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~ = 
ake =, 


—~_——~——e eee eee eee 85 eee ele eee ele eee fe ae fe ea a as 


BR 1$ 7:GO START OVER 
000022 8$: ~~ 321S CHARACTER A '*R’"? 


: BRANCH IF NO 
(R3) :t HE CHARA 
001225 $CRLF +: A ‘CR @' 
026266 $TTYIN + TYPE THE INPUT STRING 
BR 3$ ::G0 PICKUP ANOTHER CHACTER 
001224 : , $QUES Ti TYPE A 
BR is StCLEAR THE BUFFER AND LOOP 
026264 : MOVB _ (R3),9$ >:ECHO THE CHARACTER 
000015 #15, (R3)+ ; CHECK FOR, RETURN 
2$ LOOP IF NOT RETURN 
177777 ‘TCP EAR RETURN (THE 15) 
001226 SLF : 3 TYPE A LINE FEED 
CLEAN RUBOUT KEY FROM THE STACK 
S RESTORE R3 
: ::ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 2k 3: FIRST ASCII CHARACTER ON IT 
026266 000004 MOV #STTYIN,4(SP) 


sRETURN 
9$: 1 STORAGE FOR ASCII CHAR. TO TYPE 
; ; TERMINATOR 


0 

. 0 
$TTYIN: . 12. : ;RESERVE 12. BYTES FOR TTY INPUT 

005015 000 $CNTLU: . /*U/<15><12> CONTR OL ‘U'' 

006507 000012 S$CNTLG: . /*G/<15><12> CONTROL ''G’’ 

ants 020122 $MSWR: . <15><12>/SWR = /" 


040 047040 053505 S$MNEW: .ASCIZ / NEW = 
026332 000040 
-SBTTL TYPE ROUTINE 


IRI IIIOIIIOIIIISIUISIUIOISIOIOISIISIOIOIOISIOIOIOIOIOIOIOIOI II IOIOIOIOI III IIIT TI I I OTT: 
“ RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
: * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
TE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
“ #NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; *NOTE 3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


: “CA LL: 

1) USING A TRAP INSTRUCTION 

YPE ,MESADR z:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
* 


TYPE 
ME SADR 


001157 : $TPFLG ei THERE A TERMINAL? 
BP 1$ ;BR IF YES 

i HALT HERE IF NO TERMINAL 
3$ i AVE 
RO,-(SP) ;SAVE RO 
000002 MO a2 (SP) ,RO ‘:GET ADDRESS OF ASCIZ STRING 
000001 001250 WAPTENV, SENV owe IN APT MODE 

7NO,GO CHECK FOR APT CONSOLE 
000100 001251 SS rspon.. SENVM : ‘SPOOL MESSAGE TO APT 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
4 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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( 
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( 
( 
( 
( 
( 
( 
( 
( 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


kh hi hi i a a a oh a th ot 
ee NN Ne eee ee eee ee eee lee le ele lela eae ae lala a 
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026406 
927540 
000040 


000002 
000011 
000200 


026614 


026550 
001156 


001154 
000001 


026550 
026614 


152374 


000002 
000015 


026614 
000012 


001251 


026614 


152366 
000002 


000002 


da tea 11 
ROUT INE 


sHORIZONTAL TAB 


8$: 
of: 


BR 
$TYPEC: 
BP 


1$: 


INCB 
$CHARCNT : .WORD 
$TYPEX: RTS 


dD 8 
:06 PAGE 59-10 


62$ 

RO,61$ 
PC,SATY3 
#APTCSUP,SENVM 
(RO)+,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
HHT , (SP) 
#CRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC,$TYPEC 
$FILLC,(SP)+ 
2s 


$SNULL ,~ (SP) 
1(SP) 
6¢ 


PC,$TYPEC 
$SCHARCNT 
7$ 


PROCESSOR 


#’ ,(SP) 
PC,$TYPEC 
47 ,SCHARCNT 
9$ 


$TYPEC 
2(SP) ,a$TPB 
— ‘ 


ALF ,2(SP) 
$T /PEX 
(PC) + 

0 

PC 


3 APT rt SUPPRESSED 

7-YES,SKIP_TYPE OUT 

: PUSH CHARACTER TO BE TYPED ONTO STACK 
:BR IF_IT ISN'T THE TERMINATOR 

2216 TERMINATOR POP IT OFF THE STACK 


TORE R 
+ ¢ADJUST RETURN PC 
URN 
* BRANCH IF <idT> 
; BRANCH IF NOT <CRLF> 


7zPOP <CR><LF> EQUIV 
7z TYPE A CR AND LF 


; CLEAR CHARACTER COUNT 
£3681 NEXT CHARACTER 
:GO TYPE THIS CHARACTER 
:IS IT TIME FOR ie CHARS. ? 
SUF NO GO GET NEXT CHAR. 
23GET # OF +t i aa NEEDcD 
AND THE NULL 
; :DOES A NULL NEED TO BE TYPED 
:BR IF NO--GO POP THE NULL OFF OF STACK 
£260 TYPE A NULL 
:DO NOT COUNT AS A COUNT 
; LOOP 


i A TAB WITH SPACE 
TYPE A SPACE 
> ZBRANCH IF NOT AT 

$3 STOP 


es SPACE OFF STACK 
he NEXT CHARACTER 
WAIT UNTIL PRINTER IS READY 


tr CHAR TO BE TYPED INTO DATA REG. 
21S CHARACTER A CARRIAGE RETURN? 


> BRANCH IF NO 
as CHARACTER COUNT 


31S CHARACTER A LINE FEED? 
> BRANCH IF YES 

COUNT THE CHARACTER 

2 CHARACTER COUNT STORAGE 


AA BAR AR RAR ARR RRR AR RAR RAR RRA RRA ARAA 


NOR WR a es oe er ee 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


CLARA AREER EER EAR AREER ERE EEERAK KER AREEEH ERE RRKERET ERR e 


we BY Sew GS 
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:*THIS ROUTINE IS USED TO wo A 16-BIT BINARY NUMBER TO A 6-DIGIT 
; *OCTAL (ASCII) NUMBER AND TYPE IT. 
he ita apeteat HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM ,=(SP) ; ;NUMBER TO BE TYPED 
;-CALL_FOR TYPEOUT 
33N=1 OR 8 FOR NUMBER OF DIGITS TO TYPE 


7 =TYPE LEADING ZEROS 
a SUPPRESS LEADING ZEROS 


> *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
te hp OR $TYPOC 

*“* LL 

;* MOV NUM ,- (SP) NUMBER TO BE TYPED 

~ TYPON SICAL FOR TYPEOUT 


: *STYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


:*CALL: 
:@ MOV NUM, - (SP) ; NUMBER TO BE TYPED 
e* 7-CALL FOR TYPEOUT 


$TYPOS: a(SP) ,-(SP) ;sPICKUP THE MODE 
027043 MO ES Be at ;sLOAD ZERO FILL SWITCH 
(SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
M2, (SP) ; sADJUST RETURN ADDRESS 


BR $TYPON 
027043 : 37SET THE ZERO FILL SWITCH 
027045 MO #6 :zSET FOR SIX(6) DIGITS 
027042 : 2zSET THE ITERATION COUNT 
MO ZZ SAVE R3 
Zi SAVE R4 


AVE R5 
027045 MOVB ae :-GET THE NUMBER OF DIGITS TO TYPE 


000006 ak re IT FOR MAX. ALLOWED 
027044 SAVE _IT FOR USE 

027043 eer THE ZERO FILL SWITCH 
000012 $s INPUT NUMBER 


§ 


5 
Be 
a 


; ROTATE MSB INTO ''C’’ 
:GO DO MSB 
FORM THIS DIGIT 


: :GET LSB OF THIS DIGIT 
027044 2 TYPE THIS DIGIT? 
BP 7 :BR_IF NO 


$ 
177770 #177770,R3 GET —_ OF JUNK 
4$ eTEST FOR 0 
s SUPPRESS THIS 0? 


:2BR IF YES 
:DON'T SUPPRESS ANYMORE 0'S 
Ma 000060 J » MAKE THIS DIGIT ASCII 
026770 : WR3 + MAKE ASCII IF NOT ALREADY 


I 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


_—_— HS SS HS SS SH 6 2 ot oh ot I ot ot ot oo SS SH SS os ot ss sh et 
eee eee ee ee eee ee ele ee ee eee ee ee ae ae aa ae ae tae a 
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026774 110337 027040 32 SAVE FOR TYPING 
027000 3:GO TYPE THIS DIGIT 
;;COUNT BY 1 
;7BR IF MORE TO DO 
IF DONE 


3¢ INSURE LAST DIGIT | ad T A BLANK 
+260 DO THE LAST DIGIT 

sRESTORE R5 
; RESTORE R4 


sRESTORE R3 
000002 7:SET THE STACK FOR RETURNING 


7 7RETURN 
3zSTORAGE FOR ASCII DIGIT 
BYTE 33 TERMINATOR FOR TYPE ROUTINE 
$OCNT: .BYTE 32OCTAL DIGIT COUNTER 
SOFILL: .BYTE 2s ZERO FILL SWITCH 
SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
-SBITL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


ZDIOIIAIUI III IOIIOIIOIIISIIOIDISISIIIUIOIOIOIOIOIOI IOI III TOIT II TOT TOI TT TIE 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
: *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


37 *CALL . 
;: MOV NUM, =(SP> 7:PUT THE BINARY NUMBER ON THE STACK 
z* 32:GO TO THE ROUTINE 


$TYPDS: 
RO,-(SP) : ¢PUSH RO ON STACK 


-(SP) 
020200 #36200. -(SP) 
000020 )*R5 


R5 
000055 #'=,1(SP) 
1$: RO 


027262 MO #$DBLK ,R3 
000040 #' ,(R3)+ 


: R 
027252 ’ $DTBL (RO) ,R1 
; R1,R5 te BCD DIGIT 


22uRn j 
3; INCREASE THE BCD DIGIT By 1 


:2ADD BACK THE CONSTANT 
CHECK IF BCD DIGIT=0 
ZFALL THROUGH IF 0 

( isnt DOING LEADING 0'S? 

BMI :iBR IF YES 

027144 : [MSD ? 


ee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
4 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


AV HS SS 8 SS SH 3 SS SS OS NANA PP SP SP) RY SS SS SS 3 SS SS Ss SS 
tte tere ie i i bi i i 
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MAI 30 
ONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


CRI 


S 


EC-11-CRIIA MACY) 
-P11 30-NOV-78 10:58 


103003 


1 a 


B 


6$ ;7;BR IF NO 

000001 177777 MOVB  1(SP),=1(R3) =: YES==SET THE SIGN 
900060 * 6$: #°0,R2 Z:MAKE THE BCD DIGIT ASCII 
000040 SZMAKE IT A SPACE IF NOT ALREADY A DIGIT 
SZPUT THIS CHARACTER IN THE OUTPUT BUFFER 
>: JUST INCREMENT ING 
*=CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 


THE LSD 
::GO CHANGE TO ASCII 
eee THE FIRST NON@ZERO? 


9$ Si 
177777 177776 -1(SP),-2(R3) =: YES==-SET THE SIGN FOR TYPING 
9 (R3) ':SET THE TERMINATOR 
(SP) +,R5 ::POP STACK INTO R5 
(SP)+-R3 ::POP STACK INTO R3 
(SP) +-R2 t:POP STACK INTO R2 
(SP) +°R1 >:POP STACK INTO R1 
(SP) +,RO +:POP. STACK INTO RO 
027262 $DBLK ‘NOW TYPE THE NUMBER 
000002 3(SP) .4(SP) *SADJUST THE STACK 


(SP) +, (SP) 
3 sRETURN TO USER 


WWIWNWWWN 9 Ss Ss Ss Ss 2 Ss Ss is 
eNO ee eee ee ee ae ae ae a 


$DTBL: 


10. 
027262 $DBLK: .BLKW 4 
.-SBTTL TRAP DECODER 


DDI URE EER RTE RR ttt 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


027272 6 , $TRAP: RO,-(SP) 
MO 


ek ek A) ak ed ed wed wd as = ws sd 


eee eee Se Se SS SS ws SS ws wr 


7 SAVE RO 
: GET TRAP ADDRESS 
; ;BACKUP BY 2 
3:GET RIGHT BYTE OF TRAP 
R ::POSITION FOR INDEXING 
027326 $TRPAD(RO),RO ;; INDEX TO TABLE 
RO ::GO TO ROUTINE 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
4 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


027306 

027312 
eTHIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 

027314 $TRAP2: MOV (SF) ,= (SP) ;;MOVE THE PC DOWN 


027316 MOV 4(SP5,2(SP) > =MOVE THE PSW DOWN 
027324 2 RT] SIRESTORE THE PSw 


aor 


-SBTTL TRAP TABLE 


ceTAlS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE "'TRAP’’ INSTRUCTION, 


ie 


— * 


LAIN NN 32 2 4 3 4 Bo ss tw HS 


ee ie tae ee ee ee ee 
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1 :58 RAP__ TABLE 


-1 
-P1 30-NOV-78 1 


FS 


5 ROUTINE 


027326 027314 $TRPAD: .WORD $TRAP2 
$ 33 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
3s CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
:-CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
; = CALL=TYPON TRAP+4 (104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
3:CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


025500 3: CALL=GTSWR TRAP+6(104406) GET SOFT=SWR SETTING 


take :-CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SwR 
eet ob TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
; CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
027352 $RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
-SBTTL POWER Dow AND UP ROUTINES 


SIUIUII III IUIIOISISIIIOD RRR nnn enn nit ttt 
POWER DOWN ROUTINE 
027354 7 027514 $PWRDN: MOV MSILLUP ,QMOWRVEC ;;SET FOR FAST UP 
027362 000340 26 MO #340, QAPURVEC+2 : ; sPRIO ya on sta 
: K 


151530 ‘3 @SWR ON STACK 
027520 7 ¢ SAVE SP 
027426 MO #SPWRUP , aAPWRVEC’ :;SET UP VECTOR 


72 3 HANG UP 


bd FERRER ERR EEE REE EEE EEE RRR RARER EERE EREER ERE 
{POWER _UP ROUTINE 
027514 4 #$ILLUP, #PWRVEC in" FOR FAST DOWN 
$SAVR6, SP ze sGET SP 
$SAVR6 WAIT LOOP FOR THE TTY 
027520 1$: $SAVR6 ‘WAIT FOR THE INC 
1$ :OF WORD 


151462 (SP) +, aSWR- >:POP STACK INTO aSwR 
P 5 +4 STACK INTO R5 


::POP STACK INTO R1 
:POP STACK INTO RO 
027354 000024 #SPWRDN, a#PWRVEC TASeT UP THE POWER DOWN VECTOR 
000340 000026 MOV #360, aMPWRVFC+2 ;:PRIO:7 
T ; REPORT THE POWER FAILURE 
SPURMG: $POWER > ;POWER FAIL MESSAGE POINTER 


I 
$ILLUP: HALT 32 THE POWER UP SEQUENCE WAS STARTED 
BR oe 3; BEFORE THE POWER DOWN WAS COMPLETE 
027520 000000 $SAVRE: 0 ;,PUT THE SP HERE 


at ad ah ad eb end od ed 
MN N 
NO 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
4 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


AS SS AWNWNNANNNW A 3 2 2 PSN BP PMR PM MPWWNNWW PP SDN IW WWW SWS WNWWWWNAW 
—~—~w@e ae eww werwerewrewr eww wewewwewveweyrewereswereewverewerewereweeweeweewew www wwe ww OM Vw ww www VY YOU YY vw we 
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«P11 30-NOV-78 10:58 POWER DOWN AND UP ROUTINES 


027522 047520 042527 $POWER: .ASCIZ <15><12>' POWER" 
027530 


-EVEN 
-SBTTL APT COMMUNICATIONS ROUTINE 


Se en ee es 
027532 000001 027776 $ATY1: MOVB #1,$FFLG :TO REPORT FATAL ERROR 
000001 027774 $ATY3: MOVB a}. 3 “SMFLG :°T0 TYPE A MESSAGE 


BR 
000001 027776 $ATY4: ao ISFFLG :-TO ONLY REPORT FATAL ERROR 


$ATYC: 
RO,-(SP) : ¢PUSH RO ON STACK 
MOV R1,-(SP) PUSH R1 ON STACK 
027774 SMF LG :# SHOULD TYPE A MESSAGE? 


5$ :IF NOT: BR 
000001 001250 as cae anita : EOPERATING UNDER APT? 
000100 001251 aioe : SHOULD “ty ME SSAGE S? 


000004 a4 (SP) ,RO IGET MESSAGE ADDR. 
000002 000004 #2.4 (SP) >BUMP RETURN ADDR. 
001230 : SMSGTYPE aie BONE. W/ LAST XMISSION? 
001244 RO, SMSGAD ‘PUT ADDR IN MAILBOX 

(RO) + ::FIND END OF MESSAGE 


3$ 
001244 tai ;;SUB START OF MESSAGE 


001246 RO, $MSGLGT 
000004 001230 * Satan ::TELL APT TO TAKE MSG. 


000004 027706 : a4 (SP) ,4$ zzPUT MSG ADDR IN JSR LINKAGE 
000002 000004 2,4(SP) BUMP RETURN ADDRESS 
177776 27S 7 PUSH 199776 ON STACK 
026336 JSR P $TYP *:CALL TYPE MACRO 


-—-OO — 
o--- —_— 


S$; 
027776 : 4 eB REPORT FATAL ERROR? 
BE 12% s71F NO BR 
001250 : RUNNING UNDER APT? 


2 ¢F INISHED LAST MESSAGE ? 
F NOT: WAIT 
001232 MOV P GET ERROR a 
000004 #2,4(SP) ;BUMP RETURN ADDR. 
7; TELL APT TO TAKE ERROR 
:eCLEAR FATAL nas 


027774 


SMFLG: 
000 $LFLG: . + 
027776 { $FFLG: . FATAL FLAG 





a oar 30A(1052) snl coleaal 11:06 PAGE 49-46 
1 O-NOV-78 10:58 COMMUNICATIONS ROUT INE SEQ 0100 


000200 APTSIZE=200 
000001 


000100 
000040 APT CSUP=040 
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CRIIAA.P11 30-NOV-78 10:58 MESSAGES 


~SBTTL MESSAGES 


920122 044502 EMI: -ASCIZ /ACR BIT3=0 LOAD-READ ERROR/ 
030055 046040 

042522 

051122 


EM2: -ASCIZ /ACR BIT3-0 WERE NOT CLEARED BY RESET (ACR=CLR)/ 


/1E (PGTE BIT2) CANNOT BE SET/ 


/tE (PGTE BIT2) CANNOT BE WRITTEN TO O/ 


IE (PGTE BIT2) CANNOT BE CLEARED BY RESET (ACR CLR)/ 


/PTP (PGT? BIT1) CANNOT BE SET/ 


052105 


024040 ; /PTP (PG'E BIT1) CANNOT? BE WRITTEN TO 0/ 
041040 


oS OooCo 
Bsassssss 
es — 


SSSSSES 
VESBRELS NSS 


/PTP (PGTE BIT’) CANNOT BE CLEARED BY RESET (ACR CLR)/ 


MON—NwOO—rn 
SNONSNR--0O 


wel ele elelojlelelele) 


051505 


SEQ 0101 





MAINDEC=11=CRIIA 
CRIIAA.P11 


2472 


2473 


2474 


2475 


2476 


2477 


2478 


2479 


30-NOV-78 


024040 
mi 


052105 


C 


RRRAAGLR SF 
NONONMS— + 
OoO-—MNONO @w— 
Ms SNM 


we SU 
MNMCNIN—-O—NN 
DONMSNHRSNAS WARS 


020122 
00 


024522 
020105 


024522 
020105 


024522 


020105 
030055 


041501 


EMS: 


EMG: 


EMS: 


EM6: 


EM15: 


EM16: 


EM17: 


EM20: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


eASCIZ 


eASCiZ 


-ASCIZ 


-ASCIZ 
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MESSAGES 


/PGTE 


/PGTE 


/PGTE 


/PGTE 


/STTE 


/STTE 


/STTE 


/STTE 


BIT11-8 LOAD-READ ERROR/ 


B1T11-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


BIT3-9 LOAD-READ ERROR/ 


BIT3-0 WERE NOT CLEARED BY RESET (ACR CLR)/ 


BI111=-8 LOAD-READ ERROR/ 


611T11-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


BIT3-0 LOAD-READ ERROR/ 


BIT3-0 WERE NOT CLEARED BY RESET (ACR CLR)/ 


SEQ 0102 


S50=% 3 
Mw 


Ue SS Ss So es 
NMNO—MN——-NOO0O—hv— 
OMNIA & BRENNA Sw 


— 
O-—NNO 
NM——WWWO 


oo 


2 
2 
1 
04710 
04250 
05212 
02011 
05212 
2 
2 


oO 
RAR 
MOS BRWNER A A 


ARL 


SBsue 


mos 


M 8 
MACY11 30A(1052) 30-NOV-78 11:06 PAGE 60-2 
10:58 MESSAGES 


7516 
051440 
050124 


024522 


052105 
024040 


052040 


051450 
044502 


052105 
024040 
041040 
041440 
020124 


EM21: 


-ASCIZ 


/LKE (STCS 


WRITTEN TO 0/ 


CLEARED BY RESET (ACR CLR)/ 


WRITTEN TO 0/ 


CLEARED BY RESET (ACR CLR)/ 


WRITTEN TO O0/ 


SEQ 0103 





N 
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758 MESSAGES 


CRIIAA.P11 30-NOV-78 10:5 SEQ 0104 


-ASCIZ /ENB (STCS BITO) CANNOT BE CLEARED BY RESET (ACR CLR)/ 
/STCS BIT15-8 LOAD-READ ERROR/ 
/STCS BIT15-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


024522 
020113 : . /IMSK BIT11-8 LOAD-READ ERROR/ 


/IMSK BIT11-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


/IMSK 6173-0 LOAD-READ ERROR/ 


/IMSK BIT3-0 WERE NOT CLEARED BY RESET (ACR CLR)/ 


on-—-Oo— 
Sufunenw 


/MTC BIT11=8 LOAD-READ ERROR/ 
032312 : 
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SEQ 0105 
026504 
042440 

/MTC BIT11-8 WERE NOT CLEARED BY RESET (ACR CLR)/ 


/MTC BIT3-0 LOAD-READ ERROR/ 


/MTC BIT3-0 WERE NOT CLEARED BY RESET (ACR CLR)/ 


/TIST ERROR - REFER TO THE LISTING AT ‘PC''/ 


<CRLF>/TO DETERMINE THE ERROR./ 


0627122 
032634 





MAINDEC=11=CRIIA 
CRIIAA.P11 


2502 


032635 
032642 


2 
033275 


30-NOV-78 


¢ 9 
1 30A(1052) 30-NOV-78 11:06 PAGE 61 
MESSAGE S 


051440 
051523 


052123 
051501 


044440 
051523 
041520 
020040 


000 
051501 


020123 
020103 


0525 
051103 
020123 
020103 
040440 
020123 
020103 
050040 


020040 


042524 
020123 


052124 
020040 
020040 
052123 
620123 
020103 
051440 


020040 


051503 
020123 


0525 
051515 
020040 
020040 
046511 


020123 


DH1: 


DH10: 


DH11: 


-ASCIZ 


-ASC1Z 


-ASCIZ 


/PASS 


EXPCTD ACTUAL ACR/ 


ACR/ 


PGTE/ 


EXPCTD ACTUAL PGTE/ 


EXPCTD ACTUAL STTE/ 


STTE/ 


STCS/ 


EXPCTD ACTUAL STCS/ 


EXPCTD ACTUAL IMSK/ 


IMSK/ 


EXPCTD ACTUAL MITCE/ 


SEQ 0106 
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050040 020103 
020040 042440 
952103 020104 
052103 040525 
046440 041524 
051523 020040 -ASC1Z /PASS PC MTCE/ 
041520 020040 
020040 052115 . 


000 
aE Aa 020123 -ASCIZ /PASS PC LINE # EXPCTD ACTUAL DISPLY $TMPO $TMP1/ 


D9 
“-CRIIA MACY11 30A(1052) 30-NOV-78 11:06 PAGE 61-1 
MESSAGES SEQ 0107 


ASKDVA: . <CRLF><CRLF>/ACR ADDRESS: / 
ASKPIV: . /INTERRUPT VECTOR ADDRESS: / 


051505 
053105 ASKBRL: . /BR LEVEL (4-7): / 


HDRMES: . <CRLF>/PGTE PGCS STTE STCS IMSK PGF 


020040 


eASCIZ <CRLF> 
eASCIZ / / 
i. ,ASCIZ * 7 
020106 : ~ASCIZ <CRLFD>/SSELF ID = / 
000040 
033710 000200 :  .ASCIZ <CRLF> 


033712 Oo iss : -WORD $PASS,$ERRPC ,$CDDAT , SBDDAT ,DISPLY.0 
023610 : -WORD $F °SS,$ERRPC,DISPLY,0 





. 2 
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MESSAGES 


CRIIAA.P11 30-NOV-78 1 SEQ 0108 


SS 023614 DT3: -WORD $PASS,$ERRPC,LINMBR,S$GDDAT ,SBDDAT ,DISPLY,$TMPO,$TMP1 ,0 


BYTE 1,0,0,0,0,0,0,0 


- EVEN 
- END ; THAT'S ALL FOLKS! 





.. 
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CRIIAA.P11 30-NOV-78 10:58 SYMBOL TABLE 


ASWREG= 000000 023600 031772 
TESTN= 000000 
000000 
000000 


SEQ 0109 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
IT 
T 


MEW Oo OCONAMEWR— 
nununinnu 


K IPDR2= 
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020526 
000001 
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SYMBOL TABLE SEQ 0110 


$DDw13 


WNMNOTN YT HNOD Co— 
ronnnnnwnu 


ee 


Ssseessssss 


_ 
= 
~ 
= 
_ 
= 
~ 
_ 
— 
= 
= 
— 


— + — 


| 
SSoeseecessesee 


—_— 3 3 3 3 ot 3 3 


L 001226 
SDDWI2 001344 027775 
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001261 


00 
026314 $RDOCT 025270 


033770 000 
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